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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 11:34:07
excel里的表格怎么打印偶数页或奇数页?请告知详细些.

excel里的表格怎么打印偶数页或奇数页?请告知详细些.
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运行此宏,就实现了.