如何在Excel中排除某些單元格或區域進行列印

Excel是一個強大的工具，它提供各種用於資料操作和分析的功能。在這裡，我們將首先使用VBA應用程式建立公式，然後使用它來完成任務。因此，讓我們看看一個簡單的過程，如何在Excel中排除某些單元格或區域進行列印。

步驟 1

考慮一個Excel工作表，其中包含如下面的影像所示的句子列表。

在當前可見的工作表上，右鍵單擊工作表名稱選項卡以載入工作表管理選單。選擇“檢視程式碼”，將彈出Microsoft Visual Basic for Applications視窗。

或者，您可以透過開發工具→Visual Basic進入Microsoft Visual Basic for Applications視窗。您也可以同時按下Alt + F11鍵開啟它。

步驟 2

在Microsoft Visual Basic for Applications視窗中，單擊插入→模組，在Module1中輸入以下程式碼。

右鍵單擊 > 檢視程式碼 > 插入 > 模組 > 複製程式碼

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim xIndex As Long
    If ActiveSheet.Name = "Sheet1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        With ActiveSheet
            xIndex = .Range("A6:B6,A10:B10").Font.ColorIndex
            .Range("A6:B6,A10:B10").Font.Color = vbWhite
            .PrintOut
            .Range("A6:B6,A10:B10").Font.ColorIndex = xIndex
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    MsgBox "Print completed！", vbInformation, "Kutools for Excel"
End Sub

在程式碼中，Sheet1是您需要列印的活動工作表名稱，A6:B6、A10:B10是要從列印中排除的範圍。請根據您的需要更改它們。

儲存宏。然後退出Microsoft Visual Basic for Applications。

步驟 3

現在您可以開始列印工作表了。列印完成後，您將獲得如下面的螢幕截圖所示的Kutools for Excel對話方塊。

步驟 4

您可以在列印輸出中看到指定的範圍為空白。

結論

總之，提供的VBA程式碼設定了一個工作簿事件處理程式（Workbook_BeforePrint），該處理程式在列印工作簿之前執行。它旨在排除Excel中特定單元格或區域的列印。該程式碼檢查活動工作表是否名為“Sheet1”，並取消預設列印行為。它暫時停用某些應用程式屬性以提高效能。

在列印之前，將排除範圍的字型顏色更改為白色，使其在列印時不可見。然後呼叫PrintOut方法列印工作表。列印完成後，將為排除範圍恢復原始字型顏色。最後，重新啟用應用程式屬性，並顯示一個訊息框以指示列印操作已完成。

更新於： 2023年7月20日

455 次檢視

開啟您的職業生涯

透過完成課程獲得認證

開始學習
廣告