使用者25460887933480782019-09-13 14:00:45

用宏。同時按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執行此宏，解決問題。