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

网友投稿 298 2024-01-07

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

仅对于指定范围的打印，可以在Excel中设置打印区域（页面布局>打印区域>设置打印区域）。在某些情况下，与同事共享时，您可能只想使打印区域可见，如何完成打印？在本文中，我将介绍几种方法来仅在Excel中的工作表中显示打印区域。

仅在Excel的分页预览视图中显示打印区域 仅在Excel中使用VBA显示打印区域 只显示打印区域 Kutools for Excel的设置滚动区域实用程序 仅在Excel的分页预览视图中显示打印区域

当我们在分页视图中显示工作表时，单击查看 > 分页预览

，非打印区域的背景将自动更改为深灰色。请参见下面的屏幕截图：

备注：您还可以通过点击来切换到分页预览视图 分页预览

状态栏中的按钮。

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

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

大多数时候，我们可能只使用工作表的一部分，剩下数字空白单元格/范围。 Kutools for Excel“ 设置滚动区域 实用程序可以帮助您一键隐藏除选定范围以外的所有内容，或轻松隐藏所有未使用的单元格/行/列/范围。

全功能免费试用 30-天！

Kutools for Excel - 包括 300 多个方便的 Excel 工具。全功能免费试用 30-天，无需信用卡！ 立即行动吧!

仅在Excel中使用VBA显示打印区域

若要在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

Copy

步骤3：按 F5 键或单击运行按钮以运行此VBA宏。

然后，您会看到非打印区域被立即隐藏，并且当前工作表中仅显示打印区域。请参见下面的屏幕截图：

当前工作表中只有一个打印区域时，VBA宏可以很好地工作。该方法不支持撤销。要显示非打印区域，您必须手动取消隐藏非打印区域，或应用 Kutools for Excel“ 隐藏>取消隐藏所有范围效用。