Как задать Область печати для нескольких листов одновременно в Excel?
Обычно в Excel область печати можно задать только для одного листа за раз, но что делать, если нужно установить одинаковую область печати сразу для нескольких листов одной книги? Существуют ли быстрые способы решения этой задачи? Далее я подробно расскажу о простых и эффективных методах настройки одинаковой области печати для нескольких листов.
Установка одинаковых Область печати для нескольких листов с помощью Kutools для Excel
Установка одинаковых Область печати для нескольких листов с помощью VBA
Установка одинаковых Область печати для нескольких листов с помощью Kutools для Excel
Kutools для Excel — это удобная надстройка для Excel, и её функция Копировать настройки страницы позволяет быстро задать область печати для нескольких листов.
Kutools для Excel включает более 300 полезных инструментов для Excel. Бесплатная пробная версия без ограничений на 30 дней! Получить сейчас
1. Выделите область печати на одном из листов, затем нажмите Разметка страницы > Область печати > Задать область печати. См. снимок экрана:
2. Нажмите KUTOOLS PLUS > Печать > Копировать настройки страницы.
3. В диалоговом окне Копировать настройки страницы отметьте листы, для которых нужно задать Область печати, перейдите на вкладку Лист и установите флажок напротив параметра Область печати — только в разделе Настройки страницы. См. снимок экрана:
4. Затем нажмите ОК, чтобы закрыть диалоговое окно, и выберите Да в появившемся предупреждающем диалоговом окне Kutools для Excel, после чего выбранные листы будут одновременно настроены с одинаковой областью печати.
Нажмите здесь, чтобы узнать больше о функции «Копировать настройки страницы».
Установка одинаковых Область печати для нескольких листов с помощью VBA
Если вас интересует VBA, попробуйте следующий код.
1. Выделите диапазон, который вы хотите задать как Область печати, на одном из листов, и нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Модуль > Вставка, чтобы открыть окно Модуль, и скопируйте приведённый ниже код 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. Нажмите кнопку Выполнить, чтобы запустить макрос 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
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек