Beitrag aus SmartTools Access Weekly
Doppelseitendruck nach Rückfrage
Access 365 2024 2021 2019 2016 2013 2010
FRAGE Die Anwender meiner Access-Datenbank geben Berichte manchmal, aber nicht immer, im Doppelseitendruck aus. Anstatt dem Anwender die entsprechenden Einstellungen in den Druckoptionen zu überlassen, soll er individuell vor dem Ausdruck eines Berichtes entscheiden können, ob ein Doppelseitendruck erwünscht ist. Kennen Sie eine Möglichkeit die Druckereigenschaften aus Access programmatisch entsprechend zu steuern?
Diverse Anfragen
ANTWORT Für diesen Zweck stellt Access im "Printer"-Objekt eine Eigenschaft "Duplex" zur Verfügung, mit der sich die Ausgabe steuern lässt. Eine entsprechende Rückfrage und die Umschaltung integrieren Sie am besten in die Ereignisprozedur "Beim Öffnen" des Berichtes:
Private Sub Report_Open(Cancel As Integer)
Dim btn&
btn = MsgBox("Doppelseitig drucken?", _
vbYesNoCancel + vbQuestion)
If btn = vbCancel Then
Cancel = True
ElseIf btn = vbYes Then
Me.Printer.Duplex = acPRDPVertical
End If 'btn?
End Sub
Hier wird zunächst per "MsgBox" gefragt, ob doppelseitig gedruckt werden soll - mögliche Antworten sind Ja, Nein und Abbrechen. Beim Klick auf Abbrechen wird der Parameter "Cancel" auf "True" gesetzt, so dass Access den Bericht wieder schließt bzw. gar nicht erst anzeigt. Wurde auf Ja geklickt, setzen wir die Eigenschaft "Duplex" für vertikale Seitenbindung (links) auf "acPRDPVertical", soll die Bindung horizontal (oben) erfolgen, ändern Sie den Parameter auf "acPRDPHorizontal".