EXCEL如何实现奇偶页打印？

　　【问题】

　　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