Как настроить область печати для нескольких листов одновременно в Excel?

В общем, вы можете просто установить область печати на одном листе за раз в Excel, но если вы хотите установить одну и ту же область печати на нескольких листах в книге, есть ли быстрые способы решить эту проблему? Теперь я расскажу вам некоторые подробности о быстрых способах установки одной и той же области печати на нескольких листах.

Установите одну и ту же область печати на несколько листов с помощью Kutools for Excel

Установите одну и ту же область печати для нескольких листов с помощью VBA

---

Установите одну и ту же область печати на несколько листов с помощью Kutools for Excel

Kutools для Excel яудобная надстройка Excel, а ее Копировать настройки страницы Функция может помочь вам быстро установить область печати для нескольких листов.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас

1. Выберите область печати на одном из рабочих листов и нажмите Макет страницы > Область печати > Установить область печати. Смотрите скриншот:

2. Нажмите Предприятие > Инструменты для печати > Копировать настройки страницы. Смотрите скриншот:

3. в Копировать настройки страницы диалоговое окно, проверьте рабочие листы, на которых вы хотите установить область печати, затем щелкните Простыня вкладка и отметьте Область печати только в Настройка страницы раздел. Смотрите скриншот:

4. Затем нажмите Ok чтобы закрыть диалоговое окно, и щелкните Да в ближайшие Kutools for Excel диалоговое окно с предупреждением, то для отмеченных листов сразу устанавливаются одинаковые области печати.

Щелкните здесь для получения дополнительных сведений о копировании параметров страницы.

---

Установите одну и ту же область печати для нескольких листов с помощью VBA

Если вас интересует VBA, вы можете попробовать следующий VBA.

1. Выберите диапазон, который вы хотите установить в качестве области печати на одном из листов, и нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Модули > Вставить вставить Модули window и скопируйте в него приведенный ниже VBA.

VBA: установить область печати для всей книги.

Sub SetGlobalPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub

3. Нажмите Run кнопку для запуска VBA, и тогда все рабочие листы в книге будут настроены с одинаковыми областями печати.

Наконечник:

Если вы хотите установить область печати на выбранных листах, вы можете сделать следующее:

1. Выберите диапазон, который вы хотите установить в качестве области печати, а затем выберите рабочие листы, нажав Ctrl нужные вам клавиши, затем нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Модули > Вставить чтобы вставить окно модуля, и скопируйте в окно приведенный ниже код VBA.

VBA: установить область печати на выбранных листах.

Sub SetSelectWsPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWindow.SelectedSheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub