大家好，我是小夏，我来为大家解答以上问题。excel 打印奇数页，excel打印奇数偶数页很多人还不知道，现在让我们一起来看看吧！

1、用宏。

2、同时按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运行此宏，解决问题。

本文到此讲解完毕了，希望对大家有帮助。