Häufig möchten Sie ein Formular über den Standarddrucker im Querformat drucken. Dazu können Sie Druckereigenschaften für Formulare direkt über deren Objekt „Printer“ ändern. Um beispielsweise das aktuelle Formular im Querformat auszugeben, kommen folgende Anweisungen hinter einer Schaltfläche zum Einsatz:
Sub btnHardcopie()
Dim F As Form
Set F = Forms(„Artikel“)
F.Printer.Orientation = acPRORLandscape
DoCmd.PrintOut
F.Printer.Orientation = acPRORPortrait
End Sub
Diese Anweisungen setzen zunächst in der Objektvariablen „F“ eine Referenz auf das gewünschte Formular (hier „Artikel“). Über „F.Printer“ ist dann ein Zugriff auf die Druckereigenschaften möglich. „Orientation“ legt dabei fest, ob das Objekt im Hochoder Querformat ausgedruckt werden soll, wobei hier „acPRORLandscape“ das Querformat spezifiziert. „DoCmd.PrintOut“ druckt das gewünschte Objekt aus, anschließend setzen wir das Seitenformat wieder auf Standard/Hochformat zurück.
