如何在 Excel 中只列印奇數頁或偶數頁?

然而,Excel 的「列印」對話方塊未提供直接列印僅奇數或僅偶數頁的簡便方式,在辦公室或資料報表場景中,當您需要審閱、分發或歸檔長工作表中的特定頁面時,這可能會造成不便。
本文提供兩種有效解決方案克服 Excel 此一限制。您將找到列印奇偶頁的 VBA 巨集,以及使用 Kutools for Excel 的更彈性方法,可依自身需求與技術熟練度選擇最適合的方式。
使用巨集程式碼僅列印奇數或偶數頁
使用 Kutools for Excel 依需求列印奇數、偶數或特定頁面
替代方案:透過列印對話方塊手動列印奇數或偶數頁
使用巨集程式碼僅列印奇數或偶數頁
雖然 Excel 的列印介面未直接提供奇偶頁選擇功能,但可透過 VBA 巨集輕鬆實現。若您熟悉執行簡易程式碼,且希望不依賴第三方工具解決問題,這方法非常適合您——尤其適用於一次性任務,或不常需要複雜列印管理的使用者。
開始前,請務必完成工作表的列印格式設定,並透過「列印預覽」確認將產生的頁數,避免因意外的分頁符號造成空白或不必要的列印輸出。
1. 開啟要列印的工作表,然後按下 Alt + F11,啟動 Microsoft Visual Basic for Applications(VBA)編輯器。
2. 在 VBA 編輯器中,點選插入> 模組 以新增模組,並將下列程式碼貼上至指令碼視窗中。請參照螢幕截圖指引。
VBA:僅列印奇數或偶數頁
Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
For xPage = Int(xStartPage) To xTotalPages Step 2
ActiveSheet.PrintOut from:=xPage, To:=xPage
Next
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub 
複製貼上程式碼時,請勿覆蓋您可能需要的既有巨集。
3. 按下 F5 以執行巨集,系統將提示您輸入選擇:若要僅列印奇數頁,請輸入 1;若要列印偶數頁,則輸入 2. 
注意:請仔細確認輸入內容(1 或 2),輸入錯誤可能導致巨集無法正常運作。若輸入無效值,巨集通常會顯示警示或完全無反應。
4. 輸入選擇後,按一下確定,系統將彈出第二個確認對話方塊,詢問您是否確實要進行列印,以防誤觸列印。
若想在列印前取消,請在此對話方塊中按一下否;否則,請按一下是以繼續。
5. 確認後,Excel 將僅將作用中工作表指定的奇數或偶數頁傳送至預設印表機。
疑難排解與提示:
- 此巨集僅適用於目前作用中的工作表。若需列印多個工作表,請為每個工作表分別執行此巨集。
- 執行巨集前,請務必留意印表機設定——先在 Excel 的「列印」對話方塊中確認已選取正確的印表機。
- 若未列印出任何內容,請重新檢查列印區域,並確認您的工作表非空白,且版面格式適合列印。
使用 Kutools for Excel 依需求列印奇數、偶數或特定頁面
若您經常需要從工作表列印奇數頁、偶數頁或多個特定頁面,Kutools for Excel 提供極為高效的解決方案。此功能專為希望透過直覺且使用者友善的介面,輕鬆管理複雜列印作業的您而設計。透過 Kutools for Excel,不僅能一鍵列印全部奇數或偶數頁,更能靈活指定任意自訂頁面範圍——這正是 Excel 內建功能或簡易巨集難以達成的優勢所在。
安裝免費 Kutools for Excel 後,即可透過其批量打印指定頁工具高效處理多元列印需求:
請前往 KUTOOLS PLUS > 列印 > 批量打印指定頁。此時將開啟批量打印指定頁對話方塊,您可依列印需求靈活選取選項!
![]() | ![]() | ![]() |
在此對話方塊中,您可以:
- 可依需求選擇列印全部奇數頁、所有偶數頁,或指定自訂範圍,彈性遠勝 Excel 預設的列印選項。
- 輕鬆預覽所選內容,確保列印頁面正確無誤,避免紙張浪費。
提示:
1. 若要列印自訂頁面組合(例如 1、3、5 及 9 至 12),請選擇自定義範圍,並在指定欄位輸入頁面範圍(例如)1、3、5、9-12)。
2. 若要控制批量複製的份數,只需在份數設定中指定所需數量,即可列印所選頁面的多份副本。
3. 若您希望反向列印工作表,請勾選逆序列印選項。此功能對於大型列印作業尤為實用,能免去列印後手動整理頁面的麻煩!
注意事項與建議:
- 使用 Kutools 列印功能前,請先確認工作表的分頁符與列印區域設定無誤,以確保輸出結果精準無誤。
- 若您正在列印選取的區域,請留意:根據您的頁面設定,隱藏的欄或列仍可能被包含在內。
- 正式列印前,務必先使用「列印預覽」確認輸出內容,尤其是大型或重要文件。
- 此方法一次僅適用於單一工作表;若需處理其他工作表,請重複上述操作。
優勢:Kutools for Excel 非常適合經常處理重複性作業、管理複雜報表,或希望減少列印錯誤的使用者。其介面無需程式設計知識,在自訂列印情境下更比 VBA 解決方案靈活彈性!
替代方案:透過列印對話方塊手動列印奇數或偶數頁
若您不想使用 VBA 或第三方工具,可在 Excel 中手動列印奇數頁或偶數頁;但「列印」對話方塊一次僅支援單一頁面範圍,且不支援在「頁數」欄位中輸入多個不連續的頁碼(例如 1,3,5)。
手動列印奇數或偶數頁的步驟:
- 前往檔案> 列印。
- 在頁數欄位中,於「從」方框輸入單一頁碼(例如 1),即可只列印該特定頁面。
- 點擊列印。
- 視需要為每個奇數頁或偶數頁重複此流程。
示範:使用 Kutools for Excel 依需求列印奇數、偶數或特定頁面
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用


