Как распечатать четные или нечетные страницы только в Excel?
Печать нечетных или четных страниц только с макросом
Печатайте нечетные или четные или определенные страницы, как вы хотите, с помощью Kutools for Excel
Печать нечетных или четных страниц только с макросом
1. Включите лист, на котором вы хотите распечатать нечетные или четные страницы, и нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложенийокно s.
2. Нажмите Вставить > модульe и вставьте приведенный ниже код в сценарий модуля. Смотрите скриншот:
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 для четных страниц. Смотрите скриншот:
4. Нажмите OK, и появится другое диалоговое окно, чтобы убедиться, хотите ли вы печатать. Смотрите скриншот:
5. Нажмите Да продолжить печать. И тогда распечатываются только нечетные или четные страницы активного листа.
Печатайте нечетные или четные или определенные страницы, как вы хотите, с помощью Kutools for Excel
Если у вас есть Kutools for Excel, вы можете не только распечатать четные или нечетные страницы одновременно, но и распечатать любые страницы по мере необходимости так быстро, как только сможете.
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После бесплатная установка Kutools for Excel, сделайте следующее:
Нажмите Кутулс Плюс > Печать > Печать указанных страниц для Печать указанных страниц диалоговое окно и отметьте параметры, которые необходимо использовать для печати.
Наконечник:
1. Если вы хотите напечатать произвольный диапазон страниц, например, страницы 1,3,5, 9, 12 и страницы с XNUMX по XNUMX, вам нужно только проверить Пользовательский диапазон вариант и введите вот так:
2. Вы также можете установить копии печати.
3. Если вы хотите печатать страницы в обратном порядке, установите флажок Печатать в обратном порядке.
Демо
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!