如何在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 > 显示 / 隐藏 显示所有隐藏区域 立即显示隐藏的非打印区域。

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

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

隐藏其他工作表