如何在Excel工作表中僅顯示列印區域？

在處理大型或複雜的電子表格時，如果沒有多餘的雜亂資訊，可能很難顯示重要的資訊。藉助Excel的實用“列印區域”工具，您可以選擇一個精確的單元格範圍進行列印，同時消除該區域之外的任何多餘資料。

在本教程中，我們將探討如何在Excel中定義和顯示列印區域。透過僅列印所需內容，您可以更有效地傳達資料，只需遵循這些簡單的指南即可。無論您需要製作專業的報告、簡報還是任何其他基於Excel工作表的出版物，此方法都可以幫助您加快流程並提高生產力。讓我們開始學習如何使用Excel的“列印區域”工具在列印時僅顯示相關內容。

僅顯示工作表中的列印區域

在這裡，我們將使用VBA模組來完成任務。讓我們來看一個簡單的過程，瞭解如何在Excel中僅顯示工作表中的列印區域。

步驟1

考慮一個具有列印區域的Excel工作表。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。

右鍵單擊 > 檢視程式碼。

步驟2

然後單擊“插入”，選擇“模組”，然後將下面的程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Public Sub HideAllButPrintArea()
Dim xPrintRng As Range
Dim xFirstRng As Range
Dim xLastRng As Range
Application.ScreenUpdating = False
With Application.ActiveSheet
.Cells.EntireColumn.Hidden = False
.Cells.EntireRow.Hidden = False
If .PageSetup.PrintArea <> "" Then
Set xPrintRng = .Range(.PageSetup.PrintArea)
Else
Set xPrintRng = .UsedRange
End If
Set xFirstRng = xPrintRng.Cells(1)
Set xLastRng = xPrintRng.Cells(xPrintRng.Count)
If xFirstRng.Row > 1 Then
.Range(.Cells(1, 1), xFirstRng(-0, 1)).EntireRow.Hidden = True
End If
If xFirstRng.Column > 1 Then
.Range(.Cells(1, 1), xFirstRng(1, 0)).EntireColumn.Hidden = True
End If
If xLastRng.Row < .Rows.Count Then
.Range(xLastRng(2, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True
End If
If xLastRng.Column < .Columns.Count Then
.Range(xLastRng(1, 2), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True
End If
End With
Application.ScreenUpdating = True
End Sub

步驟3

然後單擊F5執行模組。

這就是如何在Excel中僅顯示列印區域的方法。

結論

在本教程中，我們使用了一個簡單的示例來演示如何僅顯示Excel工作表中的列印區域以突出顯示特定資料集。

更新於：2023年9月6日

142 次檢視

啟動您的職業生涯

透過完成課程獲得認證

開始
廣告
© . All rights reserved.