Hallo Forum,
eine kurze Frage. Ich setze folgenden Code zum Ausdruck eines einzelnen Formulares ein.
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
Hallo Mina,
Das musst du über die Printer-Eigenschaften vorher festlegen.
Dim p As Printer
Set p = Printers(0) '< vermutlich Standarddrucker
p.Orientation = acPRORLandscape
gruss ekkehard
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?
Private Sub Befehl761_Click()
Me.Printer.Orientation = acPRORLandscape
DoCmd.PrintOut acSelection
End Sub
mfg
Josef
Hallo Ekkehard, hallo Josef,
vielen Dank für Eure Hilfe.
ich benutze diesen Code
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
Hallo Josef,
ZitatHat 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?)