how print a text file and landscape/portrait mode, i am using following code but lot blank paper ejected. please give me simple and very use full method, please help me

Private Sub cmdPrint_Click()
On Error Resume Next
' If ActiveForm Is Nothing Then Exit Sub
With MDIForm1.dlgCommonDialog
.DialogTitle = "Print"
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums
If rtfText.SelLength = 0 Then
.Flags = .Flags + cdlPDAllPages
.FontSize = 8
.Orientation = cdlLandscape
Else
.Flags = .Flags + cdlPDSelection
.FontSize = 8
.Orientation = cdlLandscape
End If
.ShowPrinter
If err <> MSComDlg.cdlCancel Then
rtfText.SelPrint .hdc
End If
End With
End Sub

Hi my friend
you can use 'printer' object. it manages printer and printing with a set of methods and properties

http://www.vb6.us/tutorials/printing...printer-object

and also

http://msdn.microsoft.com/en-us/libr...=vs.80%29.aspx

sample:
http://msdn.microsoft.com/en-us/libr...=vs.80%29.aspx

__________________
happy every time, happy every where

Reza Baiat