Office: bestimmter Drucker und standart Drucker

Hallo, ich möchte eine Tabelle meiner Arbeitsmappe per VBA sowol an den Standartdrucker als auch an einen bestimmten Drucker (hier PDFCreator um die Tabelle als PDF abzuspeichern) senden. Wie mache ich das? Achja, der Standartdrucker soll nach diesem Vorgang natürlich auch wieder im Druckfenster ausgewählt sein, ohne dass ich ihn vorher wieder auswählen muss.

:)

 

Moin, CreatorX,

dem Namen des aktiven Druckers in eine Variable einstellen, den aktiven Drucker für den Druck umstellen, Wert wieder an aktiven Drucker übergeben:

Code:

Bitte ggf. ein Makro aufzeichnen, um den Zusatz für Deinen Drucker zu erhalten und entsprechend im Code ergänzern.

Diese Anweisung kann entweder einer Schaltfläche oder dem Ereignis Worksheet_BeforePrint der Mappe zugewiesen werden - bei einer auf der Tabelle vorhandenen Schaltfläche wird durch ActiveSheet immer die dann aktive Tabelle (also die mit der Schaltfläche) ausgedruckt. Beim Ereignis sollte man entweder auf den angezeigten Blattnamen oder besser auf den in der VBE ersichtlichen Codenamen der Tabelle zurückgreifen und den Druck nur bei Zutreffen starten lassen. Und da es kein Ereignis nach dem Druck gibt, sollte ggf. ein Name oder eine Variable genutzt werden, um den Drucker beim nächsten Mal ggf. umzustellen.

 

Danke das funktioniert super.

Ich habe aber noch 2 Fragen dazu:

1. Was bedeutet dieses "auf Ne03:"? Bei dem Makro, das ich aufgezeichnet habe, stand "auf Ne00:"

2. Warum wird der PDF-Drucker 2 mal als ActivePrinter zugewiesen, reicht nicht nur die zweite Zeile?
Code:

 

Moin, CreatorX,

kennzeichnet AFAIK die Netzwerkdrucker (in der Reihenfolge des Einrichtens?).

Der Code entstand aus einer Makroaufzeichnung, in der nach Druckerwechsel eine Seitenansicht ausgewählt war (und da wird halt jede Eigenschaft aufgezeichnet). Direkter Druck kann per ActiveSheet.PrintOut gestartet werden, da muss nicht unbedingt eine erneute Angabe des Drucker erfolgen:

Code:

Oder Du sparst Dir die vorherige Zuweisung des Druckernamens und weist ihn im Druckbefehl zu:
Code:

 

Vielen Dank jinx!

Nur noch eine Kleinigkeit: Ich habe jetzt das "ActiveSheet" durch With Sheets("Tabellenblatt")" ersetzt, damit immer ein bestimmtes Blatt ausdrucke ohne es aktiviert zu haben.
Code:

Unschön dabei ist, dass es kurz eingeblendet wird während des Drucks. Kann ich das mit nem anderen Befehl umgehen?

 

Moin, CreatorX,

per Application.ScreenUpdating = False die Aktualisierung aus- und nach dem Ausdruck per ~ = True wieder einschalten...

 

Danke, ja das klappt!