This thread is for discussions of Printing from a RichTextBox.

Hi,
this code is very good
do you think i can use it for my project
because i want to ask for your permision since you
the one that make it.
so is it possible if i use it all.
actually i want to modify a bit
so the lecturer do not reduce my mark because
copying some body elese
but i am blind of use API
can you help me?
i just want to print from the Rich Text Box
with the margin 2 thats all
do i need any module anymore?
thax alot

Hi,

I've developed a program which use RichTextBox to display a reports text few years ago. It printed perfectly in other OS but not XP. It keeps printing in cdlPotrait eventhough my users has select Landscape on their Printer. Please Help. The sample of the codes I use as below :

Private Sub Command1_Click()

CommonDialog1.ShowPrinter
CommonDialog1.Orientation = cdlLandscape  ' (I've forced the printer to print landscape but still not working

RichTextBox1.SelPrint Printer.hDC

   With RTOBJ
   RichTextBox1.SelStart = 0

   While Len(RichTextBox1.Text) > 0

    RichTextBox1.SelLength = InStr(RichTextBox1.SelStart + 1, RichTextBox1.Text, vbCrLf) + 1

    PrintLine = RichTextBox1.SelText

    Printer.Print PrintLine '

   RichTextBox1.SelText = ""

         Wend
     End With



Thanks.

Hi,

 

Just tried out this code.  Works fine but for one thing:  I need to use Courier for formatting reasons but the result in the print-out is always Arial (although I changed the code before running it).

Any idea why this could be happening?