在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就变道为打专印偶数页了属。。。

Sub PrintOddPage()
Dim TotalPg As Integer, i As Integer
TotalPg = ExecuteExcel4Macro("get.document(50)")
For i = 1 To TotalPg Step 2
ActiveSheet.PrintOut from:=i, to:=i
Next i
End Sub
拿这知个宏道去试回试答

材料/工具：Excel2010

1、打开需copy要打印的excel表，在此表的界面点击“打印预览”

2、在“打印预览”的界面点击“打印”

3、在“打印内容百”界面点击“属性”

4、在弹出“属性”的对话框内找到“其他功能”按键并且点击它

5、在“其他功能”的界面内，找度到“打印顺序”选项

6、点击“打印顺序”右边的倒三角，问从中选择，打答印的奇偶页

7、以打印奇数页为例，选择“打印奇数页”，然后点击确定

8、点击“确定”即可，打印偶数页按照以上步骤即可。

1、首先打开一个EXCEL表格。

2、把鼠标放在“打印”的按钮，显示zd“打印”内容：可对打印做详细设置版，如选择打印机、打印页数、打印份数或者并打和缩放等，也可以使用快捷键“ctrl+p"。

3、点击“打印”，进入到打印设置的窗口。

4、找到”打印（N):的按钮，方框中显示：范围中所有页面，点击倒三角。

5、在倒三角的下拉中，选择：奇数页，则在权肖方框中，显示了”奇数页“的文字，点击确定，即可打印。