by rhian aseniero (8 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 15th April 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
landscape orientation for datareport.
API Declarations
http://download.microsoft.com/download/vb60pro/Utility/1/WIN98/EN-US/Pageset.exe
you have to refer the pageset.dll first
add a class module - found in the file.
VBcoders
Dim obj As PageSet.PrinterControl
Private Sub Command1_Click()
On Error GoTo errorhandler:
Set obj = New PageSet.PrinterControl
obj.ChngOrientationLandscape
dateport1.Show
dateport1.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