Drucker für verschiedene Seitenzahlen

Einzelne Seiten des aktuellen Dokuments sollen auf verschiedenen Druckern ausgegeben werden. Da das mit VBA möglich ist. zeigen wir Ihnen hier eine Variante. Die erste Seite mit dem Standarddrucker ausgedruckt, die weiteren Seiten dann auf einem anderen Drucker. Dabei wird der Druckername direkt in den Code geschrieben.

Um eine Auswahl für den Drucker zu treffen, müssen Sie einen Dialog einbauen, in dem alle verfügbaren Drucker audgelistet werden.

Ein Codebeispiel dazu bzw. eine eine Datei im Download werden Sie in Kürze hier finden.

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022

Sub Druckerwechsel_Seiten()

   Dim Drucker As String

    'Seite 1 drucken
   ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="1"

    'den aktuellen Drucker merken
   Drucker = ActivePrinter

   If Selection.Information(wdNumberOfPagesInDocument) > 1 Then
       'den Drucker auf den neuen Drucker umstellen
      ActivePrinter = "der andere Druckername"
       'alle Seiten ab Seite 2 ausdrucken
      ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:="2-" & Selection.Information(wdNumberOfPagesInDocument)

       'den aktuellen Drucker wieder zurückstellen
      ActivePrinter = Drucker
   End If

End Sub

Wichtig ist der Druckername selbst, den Sie in Zeile 13 eintragen müssen. Dieser Druckername muss identisch mit dem Druckernamen sein, wie er in Windows unter Drucker und Faxgeräte zu finden ist. Mit dem Ausführen dieser Zeile wird der Standarddrucker in Windows verändert. Dies gilt dann für alle Programme in Windows.

In Zeile 18 wird der alte Standarddrucker wieder eingetragen, sodass mit dem Code der als Standard eingetragene Drucker hier nicht verändert wird. Allerdings muss man auch darauf hinweisen, dass bei einem Fehler im Makro ggf. der Standarddrucker bereits umgestellt ist und nicht wieder zurückgestellt wird.

zurück zur Übersicht Drucken