Як у програмі Microsoft Office Excel вивести на друк парні чи непарні сторінки?

Роздрукувати в програмі Microsoft Office Excel парні чи непарні сторінки можна наступним способом:

  • відкриваєте файл, який необхідно роздрукувати;
  • в меню «Сервіс» знаходите закладку «Макрос» і натискаєте на опцію «Почати запис …», потім кнопку «ОК»;
  • знову заходимо в меню «Сервіс», далі в закладку «Макрос» і натискаємо на опцію «Зупинити запис …»;
  • повторюємо процедуру: «Сервіс» >> «Макрос» >> «Макроси …», вибираємо созданий «Макрос1» і натискаємо кнопку «Змінити»;
  • в полі для введення макросу вставляєте наступний код:
    Sub Print_Odd_Even ()
    Dim Totalpages As Long
    Dim StartPage As Long
    Dim Page As Integer
    StartPage = 1
    Totalpages = Application.ExecuteExcel4Macro ("GET.DOCUMENT (50)")
    For Page = StartPage To Totalpages Step 2
    ActiveSheet.PrintOut from: = Page, To: = Page
    Next
    End Sub;
  • зберігаєте макрос (він буде доступний тільки в поточній книзі);
  • заходите в меню «Сервіс» >> «Макрос» >> «Макроси …», виберіть створений макрос «Print_Odd_Even» і натискаєте кнопку «Виконати» – почнеться друк непарних сторінок;
  • для друку парних сторінок заходите в меню «Сервіс» >> «Макрос» >> «Макроси …», виберіть створений макрос «Print_Odd_Even» і натискаєте кнопку «Змінити» і поміняйте значення «StartPage» на 2, закривайте вікно і запускайте макрос за допомогою кнопки «Виконати».

Додатково по темі: vsobolev.com – як роздрукувати в Excel парні / непарні сторінки за допомогою плагіна.

Джерела інформації: automatz.livejournal.com – друк парних і непарних сторінок в Excel (макрос).


Category: Медицина і здоров'я

Comments (Прокоментуй!)

There are no comments yet. Why not be the first to speak your mind.

Leave a Reply