Sub Form_Load()

Dim iSaveOrient as Integer

' spara aktuell inställning
iSaveOrient = Printer.Orientation

' sätter till landscape
SetPrinterOrientation OrientLandscape

' avslutar utskriften
Printer.EndDoc

' återställer
SetPrinterOrientation iSaveOrient

End Sub