辦法2：利用宏：

按Alt和F11進入宏介面——點選單——插入——模組——貼上如下程式碼：Sub dayin()Dim x, i As Integerx = ExecuteExcel4Macro("Get.Document(50)")MsgBox "現在列印奇數頁", vbOKOnlyFor i = 1 To Int(x / 2) + 1ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1Next iMsgBox "現在列印偶數頁", vbOKOnlyFor i = 1 To Int(x / 2) + 1ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * iNext iEnd Sub在此介面下直接按F5執行此宏，就實現了。

材料/工具：Excel2010；1、開啟需要列印的excel表，在此表的介面點選“列印預覽”；2、在“列印預覽”的介面點選“列印”；3、在“列印內容”介面點選“屬性”；4、在彈出“屬性”的對話方塊內找到“其他功能”按鍵並且點選它；5、在“其他功能”的介面內，找到“列印順序”選項；6、點選“列印順序”右邊的倒三角，從中選擇，列印的奇偶頁；7、以列印奇數頁為例，選擇“列印奇數頁”，然後點選確定；8、點選“確定”即可，列印偶數頁按照以上步驟即可。