作业帮 > 综合 > 作业

请问如何在excel中实现只打印奇数页或者偶数页?

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 16:22:17
请问如何在excel中实现只打印奇数页或者偶数页?
请问如何在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就变为打印偶数页了.