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運行此宏，解決問題。