请问如何在excel中实现只打印奇数页或者偶数页?
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 16:22:17
请问如何在excel中实现只打印奇数页或者偶数页?
Sub PrintOddPage()
Dim TotalPg As Integer
TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 1 To TotalPg Step 2
ActiveSheet.PrintOut From:=i,To:=i
Next
End Sub
这个是宏.是打印奇数页的.把For i = 1 To TotalPg Step 2改为For i = 2 To TotalPg Step 2就变为打印偶数页了.
Dim TotalPg As Integer
TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 1 To TotalPg Step 2
ActiveSheet.PrintOut From:=i,To:=i
Next
End Sub
这个是宏.是打印奇数页的.把For i = 1 To TotalPg Step 2改为For i = 2 To TotalPg Step 2就变为打印偶数页了.
请问如何在excel中实现只打印奇数页或者偶数页?
EXCEL怎么设置奇数页打印和偶数页打印
如何在word2003中打印偶数页
Excel表格打印怎么设置打印奇数页或偶数页?
在不打开word的情况下,如何批量打印奇数页或偶数页?
excel里的表格怎么打印偶数页或奇数页?请告知详细些.
在excel中如何对321这个数实现奇数(1+3)相加,如果是456则偶数4+6相加
在excel中如何把奇数列和偶数列分开
在excel表格中,有列数据1至100,如何筛选奇数或偶数?
word怎么先打印奇数页再打印偶数页?
word2007无法选择奇数或偶数页打印 如图
excel函数请问一下在EXCEL中如何实现两个日期相减得到天数