Beitrag aus SmartTools Access Weekly
Standarddrucker per VBA ändern
Access 365 2024 2021 2019 2016 2013 2010
FRAGE In meiner Access-Datenbank habe ich für die Anwender ein spezielles "Druck"-Formular eingerichtet. Es enthält für jeden auszugebenden Bericht eine Schaltfläche mit einer entsprechenden "DoCmd.OpenReport"-Anweisung. Ich möchte nun sicherstellen, dass der Ausdruck immer auf einem bestimmten Drucker erfolgt. Kennen Sie eine Möglichkeit, dazu den in Access eingestellten Standarddrucker per VBA zu ändern?
Diverse Anfragen
ANTWORT Nehmen Sie in die Ereignisprozedur "Beim Laden" (Form_Load) Ihres "Druck"-Formulars folgende Anweisungen auf:
Dim prt As Printer
Set prt = Application.Printers("Druckername")
Set Application.Printer = prt
"Druckername" ersetzen Sie dabei durch den Namen des Druckers, so wie er in der Systemsteuerung oder im Dialog "Drucken" angezeigt wird. Alternativ liefert folgende Schleife in einer kleinen Testprozedur die Namen aller installierten Drucker:
Sub ListPrinterNames()
Dim prt As Printer
For Each prt In Printers
Debug.Print prt.DeviceName
Next
End Sub