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 iEnd Sub在此界面下直接按F5运行此宏，解决问题。