某些打印机可以在一张纸的两面进行打印。此功能称为双工，它可以增加打印机成本的很大一部分。如果您的打印机没有双面打印，则获得相同结果的唯一方法是使纸张两次通过打印机。下面的VBA宏将帮助您完成此过程。它首先打印文档中的奇数页，提示您将纸张翻转过来，然后打印偶数页。

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

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（1418）适用于Microsoft Word 97、2000、2002和2003。