如何在 Excel 中仅显示工作表中的打印区域?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/2 16:12:17

处理大型或复杂的电子表格时，很难在不产生多余杂乱信息的情况下显示重要信息。借助 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