VBA Tipp: Bericht auf bestimmtem Drucker drucken

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte einen Bericht nicht auf dem Standarddrucker drucken, sondern für diesen Bericht einen speziellen Drucker festlegen.

Lösung 1

Den Bericht öffnen, und das Druckdialogfenster einblenden.

 DoCmd.OpenReport "MeinBericht", acViewPreview
 DoEvents
 DoCmd.RunCommand acCmdPrint


Lösung 2

Den Drucker als "Speziellen Drucker" im Bericht fest einstellen.

  • Bericht in Entwurfs- oder Seitenansicht öffnen
  • Menüpunkt "Seite einrichten" öffnen
  • Reiter "Seite" auswählen
  • "Spezieller Drucker" wählen
  • Drucker festlegen
  • ggf. Druckerschacht (Fach) festlegen
Menü "Seite einrichten" - Reiter "Seite"


Lösung 3

Den Drucker mit dem Printer-Objekt und der Printers-Auflistung (ab Access 2002) per VBA dem Bericht zuweisen
In den Beispielen wird als Druckername "Microsoft Print to PDF" (Windows 10) verwendet.


Beispiel 1: Bericht unsichtbar (hidden) öffnen, und den Drucker zuweisen

 DoCmd.OpenReport "MeinBericht", acViewPreview, , , acHidden
 Reports!MeinBericht.Printer = Application.Printers("Microsoft Print to PDF")

Beispiel 2: Bericht in der Seitenansicht öffnen, und den Drucker zuweisen

 DoCmd.OpenReport "MeinBericht", acViewPreview
 Reports!MeinBericht.Printer = Application.Printers("Microsoft Print to PDF")

Beispiel 3: Bericht unsichtbar (hidden) öffnen, den Drucker zuweisen, Bericht sofort drucken

 DoCmd.OpenReport "MeinBericht", acViewPreview, , , acHidden
 Reports!MeinBericht.Printer = Application.Printers("Microsoft Print to PDF")
 DoCmd.OpenReport "MeinBericht", acViewNormal

Wiki-Links

Web-Links