excel里的表格怎么打印偶数页或奇数页?请告知详细些.

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运行此宏,就实现了.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息