《excel实现奇数偶数页打印方法.docx》由会员分享，可在线阅读，更多相关《excel实现奇数偶数页打印方法.docx（1页珍藏版）》请在三一办公上搜索。
excel实现奇数偶数页打印方法用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub dayin Dim x, i As Integer x = ExecuteExcel4Macro(Get.Document(50) MsgBox 现在打印奇数页, vbOKOnly For i = 1 To Int(x / 2) + 1 ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i MsgBox 现在打印偶数页, vbOKOnly For i = 1 To Int(x / 2) + 1 ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i Next i End Sub 在此界面下直接按F5运行此宏，解决问题。
