增加的模块其VB代码如下: Sub dy() On Error Resume Next x = ExecuteExcel4Macro("Get.Document(50)") For i = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面" For j = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j Next j End Sub 输入完成后,关闭Visual Basic编辑窗口返回。