如何在 Excel 中列印所有工作表，唯獨排除某個特定的工作表？

作者孫修改日期2024-11-14

在 Excel 中作業時，列印多個工作表是常見的任務。但若您需要列印整個活頁簿中的所有工作表，唯獨排除其中一個特定的工作表呢？例如，您可能希望列印除名為「Total」的工作表以外的所有內容。本指南將逐步介紹兩種方法，協助您快速將指定工作表從列印範圍中排除。

使用 VBA 列印所有工作表，唯獨排除一個

使用 Kutools for Excel 列印您需要的特定頁面

使用 VBA 列印所有工作表，唯獨排除一個

以下是一段 VBA 程式碼，可列印所有工作表，唯獨排除指定的特定工作表。

1. 開啟您要列印工作表的活頁簿，並按下 Alt + F11 鍵，立即啟用 Microsoft Visual Basic for Applications 視窗！

2. 點擊插入＞模組，並將下方程式碼貼上至模組指令碼中。

VBA：列印工作表，唯獨排除一個

Sub printsheets()
'UpdatebyExtendoffice20161031
 Dim xWs As Worksheet
 Application.ScreenUpdating = False
 For Each xWs In ThisWorkbook.Worksheets
  If xWs.Visible = True Then
   If xWs.Name <> "Total" Then
       With xWs.PageSetup
        .PrintArea = "A1:B15" ' USE YOUR PRINTAREA
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
       End With
       xWs.PrintOut
   End If
  End If
 Next xWs
 Application.ScreenUpdating = False
 MsgBox "Sheet “Total” has not been printed", vbInformation, "Kutools for Excel"
End Sub

顯示已貼上 VBA 程式碼的螢幕截圖，用於列印除特定工作表以外的所有工作表

注意：在程式碼中，Total 出現在 If xWs.Name "Total" Then 與 MsgBox "工作表 Total 尚未列印“中，即為您不想列印的工作表名稱；而 A1:B15 出現在 .PrintArea = "A1:B15" 中，則是每個工作表要列印的範圍。您可依需求自由調整這些內容！

3. 按下 F5 鍵執行程式碼後，隨即會彈出對話方塊，提醒您該特定工作表尚未列印。請參閱截圖：
提醒特定工作表尚未列印的對話框螢幕截圖

4. 點擊確定即可關閉對話方塊。

使用 Kutools for Excel 列印您需要的特定頁面

若您只想列印偶數頁、奇數頁，或工作表中的特定頁面，立即使用 Kutools for Excel 的批量打印指定頁功能，快速滿足您的需求！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 啟用您要列印特定頁面的工作表，點擊 KUTOOLS PLUS > 列印 > 批量打印指定頁。請參閱截圖：
Kutools for Excel 功能區中的「列印指定頁面」功能螢幕截圖

2. 接著在批量打印指定頁對話方塊中，根據您的列印需求勾選相應選項。詳情請參閱下方截圖：
「列印指定頁面」對話框的螢幕截圖

3. 點擊列印，即可開始列印頁面。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多