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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 06:49:18
请问如何在excel中实现只打印奇数页或者偶数页?

请问如何在excel中实现只打印奇数页或者偶数页?
请问如何在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就变为打印偶数页了.