Drucken im Querformat

[Mina]

Hallo Forum,

eine kurze Frage. Ich setze folgenden Code zum Ausdruck eines einzelnen Formulares ein.

Code [Auswählen] Erweitern

Private Sub Befehl761_Click()
DoCmd.PrintOut acSelection
End Sub

Kann mir jemand sagen wie der Code zu verändern ist, wenn auf Querformat ausgedruckt werden soll.


Vielen Dank im Voraus
Mina

[Beaker s.a.]

Hallo Mina,
Das musst du über die Printer-Eigenschaften vorher festlegen.

Code [Auswählen] Erweitern

Dim p As Printer
Set p = Printers(0)    '< vermutlich Standarddrucker
p.Orientation = acPRORLandscape

gruss ekkehard

[Josef P.]

Hallo!

Als Ergänzung zum Beitrag von Ekkehard:
Ein Formular oder Bericht hat die Eigenschaft Printer. Ich nutzt das selbst nicht, aber eventuell stellt man mit dieser Eigenschaft nur die Druckereinstellungen vom Formular um.
In der Hilfe steht "Returns or sets a Printer object representing the default printer on the current system. Read/write." und im Beispiel der Hilfe wird dann aber Code mit Application.Printer gezeigt. Daher bin ich mir nicht sicher, ob man dem Hilfe-Text vertrauen darf oder ob da einfach nur der Text von Application.Printer kopiert wurde.
Hat jemand mit Form.Printer Erfahrung?

Code [Auswählen] Erweitern

Private Sub Befehl761_Click()
    Me.Printer.Orientation = acPRORLandscape
    DoCmd.PrintOut acSelection
End Sub

mfg
Josef

[Mina]

Hallo Ekkehard, hallo Josef,

vielen Dank für Eure Hilfe.

ich benutze diesen Code

Code [Auswählen] Erweitern

Private Sub Befehl761_Click()
    Me.Printer.Orientation = acPRORLandscape
    DoCmd.PrintOut acSelection
End Sub

und damit funktioniert es gut.

Euch noch einen schönen Abend

Gruß
Mina

[Beaker s.a.]

Hallo Josef,

Hat jemand mit Form.Printer Erfahrung?

Leider nein, wusste noch nicht einmal, dass es das gibt. Hatte nur mal von der
Printer-Auflistung des Application-Objects gehört, und mir das im Objektkatalog
angeschaut (*)
gruss ekkehard

(*) Seit ich mich mit Klassen beschäftige ist der Objektkatalog inzwischen auch kein
Buch mit sieben Siegeln mehr (ein paar konnte ich schon öffnen  )
Habe es die letzten Tage sogar geschafft deine ButtonEventBridge bei mir einzubauen
(darf ich doch?)