EXCEL实现奇偶页打印的方法

　一是粘贴到WORD中打印；

　　二是用宏，编程代码如下：

　　Sub PrintOddEven()

　　tpg = ExecuteExcel4Macro("GET.DOCUMENT(50)")

　　For i = 1 To tpg Step 2

　　ActiveSheet.PrintOut i, i

　　Next

　　For i = 2 To tpg Step 2

　　ActiveSheet.PrintOut i, i

　　Next

　　End Sub