Duplex-Druck mit VBA

(Word 2000)

Wenn man seine Texte beidseitig ausdrucken will, wird die Arbeit mühsam, wenn nicht gerade ein teurer Duplexdrucker zur Verfügung steht. Über den Druckertreiber lässt sich dies zwar bewerkstelligen, die Einstellungen müssen aber bei jedem Ausdruck wieder geändert werden. Etwas einfacher geht es da mit einem kurzen VBA-Programm:

Sub DuplexDruck()
' eingestellte Reihenfolge speichern
Dim blnReihenfolge As Boolean
blnReihenfolge = Options.PrintReverse
Option.PrintReverse = True

' Seiten mit gerader Seitennr. drucken
' Background:=False hält den Code an, während ausgedruckt wird
ActiveDocument.PrintOut PageType:=wdPrintEvenPagesOnly, Background:=False
MsgBox "Bitte warten, bis alle geraden Seiten ausgedruckt wurden." & vbCr & vbCr & "Ausgedruckte Seiten wieder in den Papiereinzug legen und auf OK klicken."
Options.PrintReverse = False

' Seiten mit ungerader Seitennr. drucken
ActiveDocument.PrintOut PageType:=wdPrintOddPagesOnly

' die Reihenfolge wieder in den Startzustand bringen
Options.PrintReverse = blnReihenfolge
End Sub