How to print a report (VB6) with landscape

[Islam Rabiul]

code as follows:

Private Sub Command1_Click()

Dim db8 As ADODB.Connection
Dim rst8 As ADODB.Recordset

Set db8 = New ADODB.Connection
Set rst8 = New ADODB.Recordset

db8.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\( My database).mdb;Jet OLEDB:Database Password= ( My Pass word);Persist Security Info=True"

Set DataReport1.DataSource = rst8
CommonDialog2.ShowPrinter
If CommonDialog2.Orientation = cdlPortrait Then
Printer.Orientation = cdlPortrait
Landscape = False
Else
Printer.Orientation = cdlLandscape
Landscape = True
End If

DataReport1.Show

[ at preview time shows report width is larger than paper width, though I set the printer at landscape position]

[JDDDDD]

Dude this so happened to me this one time. its cause the length of the report is bigger den a page. But thats no problemo to solve guy, just drag the edge of the report in until it becomes smallerz. Then try again and again until its small enough to print

Respect