by S Rajkumar (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 5th February 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
How to Display a Datareport in Landscape mode
API Declarations
http://support.microsoft.com/download/support/mslfiles/PageSet.exe
VBcoders
Private Sub Command1_Click()
On Error GoTo errorhandler:
Set obj = New PrinterControl
obj.ChngOrientationLandscape
DataReport1.Show
DataReport1.PrintReport False, rptRangeFromTo, 1, 1
Exit Sub
errorhandler:
MsgBox Err.Description
obj.ReSetOrientation
End Sub
Private Sub Form_Unload(Cancel As Integer)
obj.ReSetOrientation 'This resets the printer to portrait.
End Sub
note.Given the pageset dll reference for the project