如何在 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 中手動列印奇數頁或偶數頁,但每次只能列印一個頁面範圍,因為 Excel 不支持在頁面框中輸入多個非連續頁面(例如 1,3,5)。
手動列印奇數頁或偶數頁的方法:
- 前往 文件 > 列印。
- 在頁面欄位中,於「從」框中輸入單個頁碼(例如 1)以僅列印該特定頁面。
- 點擊 列印。
- 根據需要,對每一個奇數或偶數頁重複此過程。
演示:按你的需求,使用 Kutools for Excel 列印奇數頁、偶數頁或指定頁面
最佳辦公效率工具
🤖 | Kutools AI 助手:基於智能執行方式革新數據分析:智能執行 | 生成代碼 | 創建自訂公式 | 分析數據並生成圖表 | 調用 Kutools 函數… |
熱門功能:查找、標記重複值或識別重複項 | 刪除空行 | 合併列或單元格而不丟失數據 | 四捨五入無需公式 ... | |
高級 LOOKUP: 多條件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 .... | |
高級下拉列表:快速創建下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
列管理器: 添加特定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 比較區域和列 ... | |
特色功能:網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿與工作表管理器 | 資源庫(自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按列表發送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體/斜體/刪除線...) ... | |
頂級 15 種工具集: 12 個文本工具(添加文本、刪除特定字符、...) | 50+ 圖表 類型(甘特圖、...) | 40+ 實用 公式(基於生日計算年齡、...) | 19 個插入工具(插入QR碼、根據路徑插入圖片、...) | 12 個轉換工具(金額轉大寫、匯率轉換、...) | 7 個合併與分割工具(高級合併行、分割儲存格、...) | ... 還有更多 |
使用 Kutools for Excel 提升您的 Excel 技巧,體驗前所未有的高效。 Kutools for Excel 提供超過 300 種高級功能來提高生產力並節省時間。 點擊這裡獲取您最需要的功能...
Office Tab 將標籤式界面帶到 Office,讓您的工作更加輕鬆
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
- 在同一窗口的新標籤中打開和創建多個文檔,而不是在新窗口中。
- 將您的生產力提高 50%,每天為您減少數百次鼠標點擊!