请问如何在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就变为打印偶数页了.