如何根據 Excel 儲存格的值，列印特定頁面或工作表？

作者Siluvia修改日期2024-11-21

您是否曾需要根據儲存格的值，來列印 Excel 中的特定頁面或整張工作表？無論是要在條件成立時列印指定頁碼，還是整個工作表，本指南都提供清晰的逐步操作方法，助您輕鬆達成目標。

使用 VBA 程式碼根據儲存格值列印特定頁面
 使用 VBA 程式碼根據儲存格值列印特定工作表

使用 VBA 程式碼根據儲存格值列印特定頁面

例如，當您在目前工作表的儲存格 A1 輸入頁碼 1 時，系統將自動列印該工作表的第一頁。請依照下列步驟達成此功能。

1. 選取包含您要據以列印之頁碼的儲存格，同時按下 Alt 與 F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗；接著點擊插入＞模組。

2. 此時會彈出 Microsoft Visual Basic for Applications 視窗，請將下列 VBA 程式碼複製並貼上至程式碼視窗中。

VBA 程式碼：根據儲存格值列印頁面

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. 按下 F5 鍵執行程式碼。在彈出的 Kutools for Excel 對話方塊中，若要列印該頁面，請點擊是按鈕；若不打算列印，則點擊否按鈕以直接關閉對話方塊。請參見截圖：

根據儲存格值列印特定頁面的 Kutools for Excel 對話方塊截圖

接著將開啟當前工作表特定頁面的預覽視窗，請點擊列印按鈕立即開始列印！

列印預覽視窗的截圖

使用 VBA 程式碼根據儲存格值列印特定頁面

假設工作表中儲存格 B2 的值為 1001 時，您希望列印目前使用中的工作表。可透過以下 VBA 程式碼達成此目的，請依下列步驟操作：

1. 在您要根據儲存格值進行列印的工作表標籤上按一下滑鼠右鍵，然後從右鍵功能表中點選檢視程式碼。

2. 此時會彈出 Microsoft Visual Basic for Applications 視窗，請將下列 VBA 程式碼複製並貼上至程式碼視窗中。

VBA 程式碼：根據儲存格值列印工作表

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

在 Excel 中顯示插入根據儲存格值進行列印之 VBA 程式碼位置的截圖

注意：您可以根據需求調整程式碼中的儲存格及其對應數值。

3. 按下 Alt+Q，即可關閉 Microsoft Visual Basic for Applications 視窗。

當您在儲存格 B2 輸入數字 1001 後，將彈出 Kutools for Excel 對話方塊：點擊是按鈕立即開始列印，或點擊否按鈕直接關閉對話方塊而不列印。請參見截圖：

根據儲存格值確認工作表列印的 Kutools for Excel 對話方塊截圖

提示：若您想直接列印不連續的頁面（例如當前工作表的第 1、6 與 9 頁），或僅列印所有偶數頁或奇數頁，可使用批量打印指定頁工具，如以下截圖所示——Kutools for Excel。

用於選擇性列印的 Kutools for Excel「列印指定頁面」功能截圖

Kutools for Excel－透過超過 300 項必備工具強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理，大幅提升工作效率！立即取得

最佳 Office 生產力工具

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