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.