Einige Drucker können auf beiden Seiten eines Blattes Papier drucken. Diese Funktion wird als Duplexing bezeichnet und kann die Kosten eines Druckers erheblich verändern. Wenn Ihr Drucker nicht über Duplexdruck verfügt, können Sie das gleiche Ergebnis nur erzielen, indem Sie Ihr Papier zweimal durch den Drucker führen. Das folgende VBA-Makro unterstützt Sie bei diesem Vorgang. Es druckt zuerst die ungeraden Seiten in einem Dokument, fordert Sie auf, das Papier umzudrehen, und druckt dann die geraden Seiten.

Sub PrintBothSides()

Dim iTemp As Integer

ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintOddPagesOnly     iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides")

If iTemp = vbOK Then         ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly     End If End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1418) gilt für Microsoft Word 97, 2000, 2002 und 2003.