excel里的表格怎么打印偶数页或奇数页?请告知详细些.
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/06/13 17:38:38
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运行此宏,就实现了.
按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运行此宏,就实现了.
excel里的表格怎么打印偶数页或奇数页?请告知详细些.
Excel表格打印怎么设置打印奇数页或偶数页?
EXCEL怎么设置奇数页打印和偶数页打印
word2007无法选择奇数或偶数页打印 如图
在不打开word的情况下,如何批量打印奇数页或偶数页?
word怎么先打印奇数页再打印偶数页?
请问如何在excel中实现只打印奇数页或者偶数页?
word里怎么把页码设置为奇数页在右边、偶数页在左边?我要双面打印,我用07版的,
在excel表格中,有列数据1至100,如何筛选奇数或偶数?
数列如何用excel统计奇数或偶数的个数
EXCEL删除奇数行一个excel表格,需要删除除了第一行标题行之外的所有的奇数行,请各位通者达人不吝赐教.越详细越好,
EXCEL表格里按姓名或姓名开头字母全页排序怎么排