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