hasta el ejemplo de como usar la libreria viene aca
http://support.microsoft.com/kb/198901/es Cita: Dim obj As PageSet.PrinterControl
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