RichTexBox

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?

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

VB Code:

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

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