Як надрукувати непарні чи парні сторінки лише в Excel?

Як ми всі знаємо, ми можемо друкувати непарні або парні сторінки лише у програмі Word 2013 у розділі Друк, як показано нижче. Однак у функції друку в Excel немає можливості друкувати непарні та парні сторінки. Але тут я можу представити код, який може друкувати лише непарні чи парні сторінки в Excel, як вам потрібно.

Друкуйте непарні або парні сторінки лише з макрокодом
Друкуйте непарні, парні чи певні сторінки, як вам потрібно Kutools for Excel

Друкуйте непарні або парні сторінки лише з макрокодом

1. Увімкніть аркуш, на якому ви хочете надрукувати непарні чи парні сторінки, та натисніть Alt + F11 ключі, щоб відкрити Microsoft Visual Basic для програмивікно.

2. клацання Insert > модуль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, будь ласка, виконайте наведені нижче дії:

Натисніть Kutools Plus > друк > Друк вказаних сторінок щоб включити Друк вказаних сторінок діалогове вікно та перевірте параметри, необхідні для друку.

Порада:

1. Якщо ви хочете надрукувати власний діапазон сторінок, наприклад, сторінку 1,3,5 та сторінки 9-12, вам потрібно лише перевірити Спеціальний діапазон параметр і тип, наприклад:

2. Ви також можете встановити копії друку.

3. Якщо ви хочете надрукувати сторінки в зворотному порядку, поставте галочку Друкуйте у зворотному порядку.

  Демонстрація

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...