excel电子表格里面怎么实现奇偶页打印？

1.单击菜单工具→宏→录制新宏 。

2.在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中 

单击确定后，按停止录制宏按钮 。

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运行此宏，解决问题。

如果你的打印机支持双面打印，直接文件，打印，整个工作簿，然后在打印机属性里选择双面打印就可以了。

如果不是，得用宏。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i, j As Integer
i = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
For j = 1 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
MsgBox "请将纸反放后点OK，以打印偶数页", vbOKOnly, "Hi"
For j = 2 To i Step 2
ThisWorkbook.PrintOut i, i
Next j
End Sub

在此界面直接按F5运行此宏，OK。

需要用宏来实现。