如何仅在Excel中的工作表中显示打印区域？-英雄云拓展知识分享

当我们在分页视野中显示工作表时，单击 阅读 > 分页预览，非打印区域的背景将自动更改成深灰色。 请参见下面的屏幕截图：

备注：您还可以经过点击来切换到分页预览视野 分页预览 状态栏中的按钮。

但是，此方法不会隐藏非打印区域，您依然可以在非打印区域中查看数据。

一键隐藏除选定范围以外的所有内容（隐藏未使用的列/行/单元格）

大多数情况下，我们只能使用工作表的一部份，数字空白单元格/范围在左侧。 tools for Excel的 设置转动区域 实用程序可以帮助您一键隐藏除选定范围以外的所有内容，或轻鬆隐藏所有未使用的单元格/行/列/范围。

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

步骤1：按下 其他 + 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. 此方法不支持撤销。 要显示非打印区域，您必须手动取消隐藏非打印区域，或将tools for Excel的 隐藏>取消隐藏所有范围 功效。

如果您已安装tools for Excel，则其 设置转动区域 实用程序将帮助您轻鬆地仅在当前工作表中显示打印区域。

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

备注：如果没法快捷找到打印区域，可以按 F5 键打开“转到”对话框，选择打印区域名称，然后单击 OK 按钮以下图所示。 但是此方法将选择当前工作表中的所有打印区域。

步骤2：点击 库工具 > 显示/隐藏 > 设置转动区域.

然后，您将仅在当前工作表中立即看到所选的打印区域，以下图所示：

笔记：

1. tools for Excel的 设置转动区域 支持撤销，您可以按 按Ctrl + Z 同时显示隐藏的非打印区域。
2. 你可以点击 库工具 > 节目 / 隐藏 > 取消隐藏所有范围 立即显示隐藏的非打印区域。

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

显示隐藏范围（列和行）

隐藏其他工作表