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