Как быстро распечатать первую страницу каждого листа?
Если у вас есть книга, содержащая несколько рабочих листов, и вам нужно распечатать только Первая страница каждого листа, вы можете установить параметры страницы 1 на 1 в Настройки печати и печатать их по одному. Однако это может быть утомительно и отнимать много времени. Существуют ли быстрые и простые способы распечатать все Первая страница каждого листа в Excel?
Печать первой страницы каждого листа с помощью кода VBA
Печать первой страницы каждого листа одним щелчком с помощью Kutools для Excel ![]()
Печать первой страницы каждого листа с помощью кода VBA
Следующий код VBA позволит вам быстро распечатать первую страницу каждого рабочего листа одновременно. Выполните следующие действия:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Печать первой страницы каждого листа
Sub PrintAllFirstPage()
'Update 20140924
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.PrintOut from:=1, To:=1
Next
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код, и первая страница каждого листа будет распечатана одновременно.
Печать первой страницы каждого листа одним щелчком с помощью Kutools для Excel
Если у вас установлено расширение Kutools для Excel, в нём доступны различные инструменты печати. Воспользуйтесь функцией Печать первой страницы каждого листа, чтобы распечатать первую страницу каждого листа.
Активируйте книгу, из которой нужно распечатать только первую страницу каждого листа, затем нажмите KUTOOLS PLUS > Печать > Печать первой страницы каждого листа, после чего появится окно Kutools для Excel для подтверждения. См. снимок экрана:

После нажатия будет распечатана первая страница каждого листа.
Связанные статьи:
Как настроить печать страниц с нумерацией римскими цифрами?
Как печатать несколько книг в Excel?
Как распечатать длинный столбец на одной странице в Excel?
Как Обратная печать листов рабочего листа?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек