Как распечатать в Excel только нечётные или только чётные страницы?
Однако диалоговое окно печати Excel не предоставляет простого способа печати только нечётных или только чётных страниц, что может быть неудобно в различных офисных или отчётных сценариях, где необходимо просматривать, распространять или архивировать определённые страницы из длинного листа.
В этой статье представлены два эффективных решения данной проблемы в Excel. Вы найдёте как макрос VBA для печати нечётных или чётных страниц, так и более гибкий подход с использованием Kutools для Excel, чтобы выбрать метод, наиболее соответствующий вашим потребностям и уровню технической подготовки.
Печать только нечётных или чётных страниц с помощью кода макроса
Печать нечётных, чётных или конкретных страниц по вашему желанию с помощью Kutools для Excel
Альтернативное решение: Ручная печать нечётных или чётных страниц через диалоговое окно печати
Печать только нечётных или чётных страниц с помощью кода макроса
В Excel интерфейс печати не предлагает прямых опций для выбора нечётных или чётных страниц, но добиться этого можно с помощью простого макроса VBA. Этот подход идеален, если вы готовы выполнить небольшой код и ищете решение без сторонних инструментов — особенно для разовых задач или когда сложное управление печатью требуется редко.
Перед началом убедитесь, что ваш лист готов к печати, и проверьте в предварительном просмотре, сколько страниц будет сгенерировано. Это поможет избежать пустых или ненужных распечаток из-за неожиданных разрывов страниц.
1. Откройте лист, который вы хотите распечатать, затем нажмите Alt + F11, чтобы запустить редактор Microsoft Visual Basic для приложений (VBA).
2. В редакторе VBA выберите Вставка > Модуль, чтобы добавить новый модуль, и вставьте приведённый ниже код в окно сценария. См. снимок экрана для справки.
VBA: Печать только нечётных или чётных страниц
Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
For xPage = Int(xStartPage) To xTotalPages Step 2
ActiveSheet.PrintOut from:=xPage, To:=xPage
Next
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
При копировании и вставке кода убедитесь, что не перезаписываете существующие макросы, которые могут вам пригодиться.
3. Нажмите F5, чтобы запустить макрос. Появится запрос, в котором вам нужно сделать выбор: введите 1, если хотите распечатать только нечётные страницы, или 2 — для чётных страниц.
Примечание: внимательно проверьте введённое значение (1 или 2) — некорректный ввод может нарушить корректную работу макроса. При указании недопустимого значения макрос, скорее всего, выдаст ошибку или просто ничего не выполнит.
4.После ввода выбора нажмите ОК. Появится второе диалоговое окно с подтверждением: действительно ли вы хотите продолжить печать. Это предотвращает случайную печать.
Если вы хотите отменить печать, нажмите Нет в этом диалоговом окне; в противном случае — Да, чтобы продолжить.
5.После подтверждения Excel отправит на принтер по умолчанию только указанные нечётные или чётные страницы активного листа.
Устранение неполадок и советы:
- Этот макрос работает с активным листом. Чтобы распечатать несколько листов, запустите его отдельно для каждого.
- Перед запуском макроса проверьте настройки принтера: убедитесь, что в диалоговом окне печати Excel выбран нужный принтер.
- Если ничего не печатается, ещё раз проверьте область печати и убедитесь, что ваш лист не пуст и правильно подготовлен к печати.
Печать нечётных, чётных или конкретных страниц по вашему желанию с помощью Kutools для Excel
Если вам часто приходится печатать нечётные, чётные или отдельные конкретные страницы из ваших листов, Kutools для Excel предлагает высокоэффективное решение. Этот подход идеально подходит пользователям, которым нужен более интуитивный и удобный интерфейс для управления сложными задачами печати. С Kutools для Excel вы можете не только выбрать печать всех нечётных или всех чётных страниц, но и с лёгкостью задавать произвольные диапазоны страниц — чего нет в стандартных возможностях Excel или простых макросах.
После бесплатной установкиKutools для Excel вы сможете использовать её утилиту Печать указанных страницдля эффективного решения разнообразных задач печати:
Чтобы это сделать, перейдите в KUTOOLS PLUS > Печать > Печать указанных страниц. Откроется диалоговое окно Печать указанных страниц, где вы сможете выбрать параметры в соответствии с вашими требованиями к печати.
 |  |  |
В этом диалоговом окне вы можете:
- Выберите печать всех нечётных страниц, только чётных страниц или задайте пользовательский диапазон — это обеспечивает гораздо большую гибкость по сравнению со стандартными параметрами печати Excel.
- Быстро просмотрите свой выбор, чтобы убедиться, что печатаете именно нужные страницы, и избежать лишнего расхода бумаги.
Совет:
1. Чтобы распечатать произвольный набор страниц, например 1, 3, 5 и с 9 по 12, выберите Пользовательский диапазони введите диапазон в соответствующее поле (например,)1, 3, 5, 9–12).
2. Чтобы управлять количеством копий, просто укажите нужное число в настройке Копии, чтобы распечатать несколько экземпляров выбранных страниц.
3. Если вы хотите включить обратную печать листов, установите флажок Печать в обратном порядке. Это особенно полезно при больших заданиях печати, когда важно правильно упорядочить страницы после печати.
Предупреждения и рекомендации:
- Заранее проверьте разрывы страниц и область печати на вашем листе, чтобы добиться точных результатов при использовании функций печати Kutools.
- Если вы выбираете диапазон для печати, обратите внимание, что скрытые строки или столбцы могут быть включены в печать в зависимости от настроек страницы.
- Всегда используйте предварительный просмотр перед финальной печатью, особенно для объёмных или важных документов.
- Этот метод обрабатывает один лист за раз — при необходимости повторите его для остальных листов.
Преимущества: Kutools для Excel идеально подходит для решения рутинных задач, работы со сложными отчётами и минимизации ошибок при печати. Его интерфейс не требует знаний программирования и предлагает гораздо больше гибкости по сравнению с VBA-решениями для настройки печати.
Альтернативное решение: Ручная печать нечётных или чётных страниц через диалоговое окно печати
Если вы предпочитаете не использовать VBA или сторонние инструменты, печать нечётных или чётных страниц в Excel придётся выполнять вручную — за один раз через диалоговое окно печати можно распечатать только один непрерывный диапазон страниц. Excel не позволяет указывать несколько несмежных страниц (например, 1, 3, 5) в поле «Страницы».
Чтобы вручную распечатать нечётные или чётные страницы:
- Перейдите в Файл > Печать.
- В поле Страницы введите номер нужной страницы (например, 1) в поле «От», чтобы распечатать только эту страницу.
- Нажмите Печать.
- Повторяйте этот процесс для каждой нечётной или чётной страницы по мере необходимости.
Демонстрация: Печать нечётных, чётных или конкретных страниц по вашему желанию с помощью Kutools для 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек