Как отобразить на листе в Excel только заданную Область печати?

Когда вы переключаете лист в режим разрывов страниц, выбрав Вид > Разрыв страницы / Предварительный просмотр, фон области за пределами печати автоматически становится тёмно-серым. См. снимок экрана ниже:

Примечание: вы также можете перейти в режим предварительного просмотра разрывов страниц, щёлкнув кнопку Разрыв страницы: предварительный просмотр на строке состояния.

Однако этот метод не скрывает область за пределами области печати, и вы по-прежнему можете просматривать данные вне области печати.

Один щелчок, чтобы скрыть всё, кроме Выберите диапазон (скрыть неиспользуемые столбцы/строки/ячейки)

Чаще всего мы используем лишь часть листа, оставляя пустые ячейки или диапазоны. С помощью утилиты Kutools для Excel Скрыть не выбранную область можно одним щелчком скрыть всё, кроме выделенного диапазона, или легко скрыть все неиспользуемые ячейки, строки, столбцы и диапазоны.

Чтобы полностью скрыть всё, кроме области печати, в Excel можно воспользоваться макросом VBA. Для этого выполните следующие действия:

Шаг 1: Одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.

Шаг 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 для Excel: Скрыть > Развернуть все скрытые диапазоны.

Если у вас установлен Kutools для Excel, его утилита Скрыть не выбранную область поможет легко отобразить только область печати на текущем листе.

Шаг 1: Выделите область печати на текущем листе.

Примечание: Если вы не можете быстро найти область печати, нажмите клавишу F5, чтобы открыть диалоговое окно «Перейти», выберите имя «Область печати» и нажмите кнопку OK, как показано на снимке экрана ниже. Однако этот метод выделит всю область печати на текущем листе.

Шаг 2: Щелкните Kutools > Показать / Скрыть > Скрыть не выбранную область.

Затем вы увидите, что в Текущий лист сразу отображается только выделенный Область печати, как показано на снимке экрана ниже:

Примечания:

1. Утилита Kutools для Excel поддерживает отмену действия «Скрыть не выбранную область»: просто одновременно нажмите клавиши Ctrl + Z, чтобы снова отобразить скрытую область вне выделенного.
2. Вы можете щелкнуть Kutools > Показать / Скрыть > СкрытьРазвернуть все скрытые диапазоны, чтобы немедленно отобразить скрытые участки вне области печати.

Установить позицию прокрутки или скрыть другие ячейки

Отобразить скрытые диапазоны (столбцы и строки)

Скрыть другие листы