返回目录：excel表格制作
用宏。同时按Alt和F11进入宏界来面，点菜单的插入自，模块，粘贴如下代码：
Sub dayin()
Dim x, i As Integer
x = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "现在打知印奇数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1
Next i
MsgBox "现在打印偶数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i
Next i
End Sub
在此界面下直接按F5运行道此宏，解决问题。
材料/工具：Excel2010
1、打开需要打印的excel表，在此百表的界面点击“打印预览”
2、在“打印预览”的界面点击“打印”
3、在“打印内容度”界面点击“属性”
4、在弹出“属性”的对话框内找到“其他功能”按键并且问点击它
5、在“其他功能”的界面内，找到“打印顺答序”选项
6、点击“打印顺序”右边的倒三角，从中选择，打印的奇偶页
7、以打印奇回数页为例，选择“打印奇数页”，然后点击确定
8、点击“确定”即可，打印偶数页按照以上步骤即可。答
1、首先复打开一个EXCEL表格。
2、把鼠标放在“打印”的按钮，显示“打印”内容：可对打印做详细设置，如选择打印机、打印页数、打印份数或者并打制和缩放等，也可以使用快捷键“ctrl+p"。
3、点击“打印”，进入到打印设置的窗口。
4、找到”打印（N):的按钮，方框中显示：范围中所有页面，点击倒三百角。
5、在倒三角的下拉中，选择：奇数页，则在肖方框中，显示了”度奇数页“的文字，点击确定，即可打印。
1.单击菜单工具→宏→录制新宏 。
2.在弹出的录制新宏对话框中设定zhidao新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中
单击确定后，按停止录制宏按钮 。专
3.同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴属如下代码： Sub dayin() 。
Dim x, i As Integer
x = ExecuteExcel4Macro("Get.Document(50)") MsgBox "现在打印奇数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i
MsgBox "现在打印偶数页", vbOKOnly For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i Next i
End Sub
4.在此界面下直接按F5运行此宏，解决问题。