Excel奇偶页打印宏

右击工作表标签—查看代码—插入—模块—粘贴代码—关闭VBE编辑器,回到工作表,工具—宏—宏,选择Print_双面,单击执行。

Sub Print_双面()

Dim pageTotal As Integer
Dim jPage As Integer
Dim OK

pageTotal = Application.ExecuteExcel4Macro("get.document(50)")

For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next

OK = MsgBox("请把纸张装入打印机,打印偶数页", vbOKCancel, "双面打印")

If OK = vbOK Then
For jPage = 2 To pageTotal Step 2
ActiveSheet.PrintOut from:=jPage, To:=jPage
Next
End If

End Sub

添加评论

Loading