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

当您点击视图 > 分页预览，将工作表切换为分页符视图时，非打印区域的背景会自动变为深灰色。效果如下图所示：

注意：您也可以点击状态栏中的分页预览按钮（位于状态栏上），快速切换到分页预览视图。

然而，此方法不会隐藏非打印区域，您仍可在其中查看数据。

一键隐藏除选择区域外的所有内容（隐藏未使用的列/行/单元格）

大多数情况下，我们可能仅使用工作表的一部分，其余区域则留有空白单元格或未使用内容。Kutools for Excel 的隐藏非选中区域工具，可一键隐藏除所选区域外的所有内容，轻松清理未使用的单元格、行、列或区域，让工作表更简洁高效！

要在 Excel 中完全隐藏非打印区域，您可以尝试使用 VBA 宏。具体操作如下：

步骤 1：同时按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

步骤 2：单击插入> 模块，然后将以下 VBA 代码粘贴到模块窗口中：

VBA：仅在当前工作表中显示打印区域

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 键，或单击运行按钮，即可执行此 VBA 宏。

随后，您将看到非打印区域立即被隐藏，且仅打印区域在当前工作表中显示。请参见下方截图：

注意事项：

1. 当当前工作表中仅有一个打印区域时，VBA 宏可正常运行。
2. 此方法不支持撤销操作。要显示非打印区域，您必须手动取消隐藏，或使用 Kutools for Excel 的隐藏 > 显示所有隐藏区域工具。

如果您已安装 Kutools for Excel，其隐藏非选中区域工具可帮助您轻松地仅在当前工作表中显示一个打印区域。

步骤 1：在当前工作表中选择打印区域。

注意：如果您无法快速找到打印区域，可按 F5 键打开“定位”对话框，选择打印区域名称后，单击确定按钮（如下方截图所示）。但此方法将选中当前工作表中的所有打印区域。

步骤 2：单击 Kutools > 显示 / 隐藏 > 隐藏非选中区域。

随后，您将立即看到仅所选的打印区域在当前工作表中显示（如下方截图所示）：

注意事项：

1. Kutools for Excel 的隐藏非选中区域功能支持撤销操作，您只需同时按下 Ctrl+Z 键，即可恢复显示被隐藏的非打印区域。
2. 您可以立即显示隐藏的非打印区域：单击 Kutools > 显示 /隐藏隐藏 > 显示所有隐藏区域。

设置滚动位置或隐藏其他单元格

显示隐藏的区域（列和行）

隐藏其他工作表