printing RichTextBoxes

[AndyB]

I have two RichTextBoxes and when I print out their text
it prints each one on a separate page,how do I get it to print on the same page. Thanks in advance for any help.
Also the currentX and currentY don't seem to work.

[Edited by AndyB on 07-13-2000 at 07:39 PM]

Wouldn't it just be:

Printer.Print Richtextbox1.text & Richtextbox2.text

[AndyB]

Thanks Matthew that works but I would also like to be able to change the position of the text on the page.

If it's a richtextbox..than you can use it's alignment functions.

SelAlignment Property

rtfLeft	   0             'Left.  
The paragraph is aligned along the left margin.
rtfRight   1             'Right. 
The paragraph is aligned along the right margin.
rtfCenter  2	         'Center.  
The paragraph is centered between the left and right margins.

Richtextbox1.SelAlignment = rtfCenter

[AndyB]

Can the contents of the RichTextBox be put into a variable
and then positioned on the page using CurrentX and CurrentY.

Printer.CurrentX = (Printer.Width - Printer.TextWidth (Richtextbox1.Text)) \ 2 
Printer.Print Richtextbox1.text & Richtextbox2.text
Printer.ENDDOC

I believe you have to put it in yourself.

Richtextbox1.text = Richtextbox1.text & "red..white..blue"

'or

Richtextbox1.Seltext = "red white green blue"

[AndyB]

Thanks again for your help.I don't have time to try it now but I'll try it later.

Just a note, when printing from the RichTextBox, it's a good idea to use the SelPrint method.

RichTextBox1.SelPrint (Printer.hDC)

That will work Megatron...but it is RichTextBox1.SelPrint (Printer.hDC) will only print the textbox stated. AndyB wants to print both Richtextboxes on the same page ;]. But, as always, your "notes" are always useful .

[AndyB]

I also want to be able to print the contents of the RichTextBoxes to the place of my choosing on the page. If I could do that, it would make my day better than it has already been.