RichTexBox

[Norkis]

hi,

I have 6 rich text box'es. In all of them are inserted text and ole objects. How to print all data from these rich text box'es like this:

"My text"
richtextbox1 content
"My text"
richtextbox2 content
richtextbox3 content
richtextbox4 content
richtextbox5 content
richtextbox6 content

I suggest to copy richtextbox1 content to memmory and then paste to new richtextbox, then copy other richtextbox's content and then paste.

Any idies?

[Microbasic]

Your idea is the easiest. There are (MORE COMPLICATED) ways dealing with GDC and Bliting, but../

Dim MemVar As String
    MemVar = RichTextBox1.TextRTF
    RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox2.TextRTF
    RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox3.TextRTF
    RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox4.TextRTF
    RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox5.TextRTF
    RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox6.TextRTF
    RichTextBox1.SelLength = 0
    RichTextBox1.SelPrint (Printer.hDC)
    RichTextBox1.TextRTF = MemVar

[Norkis]

This works only with plain text. With ole object it not works...