Код на VBA для кнопки друку в Excel (5 прикладів)

Hugh West

16-10-2023 Макроси & Excel VBA
  • Поділитися Цим
Hugh West

Якщо ми можемо встановити власну кнопку друку на нашому аркуші Excel, це може бути дуже зручним та економією часу для друку аркушів. Макроси VBA ми можемо легко це зробити. Тому ця стаття надасть вам 5 простих макросів для використання VBA код кнопки друку в Excel.

Завантажити Практичний посібник

Ви можете завантажити безкоштовний шаблон Excel за посиланням і потренуватися самостійно.

Код VBA для створення кнопки друку.xlsm

5 прикладів використання коду VBA для кнопки друку в Excel

Давайте спочатку ознайомимося з нашим набором даних, який представляє деякі продавця продажі в різних Регіони .

1. Використання коду VBA для створення кнопки друку для діалогового вікна друку в Excel

По-перше, ми створимо Кнопка друку а потім напишуть для нього коди.

Сходинки:

  • Натисніть наступним чином: Розробник ">>; Вставка ">>; Кнопкова коробка.

Незабаром після цього ви отримаєте знак "плюс" (+) у вашій курсор .

  • Перетягування що курсор за Вашим бажанням розмір кнопки а через деякий час діалогове вікно названий Призначити макрос відкриється.

  • Дайте мені ім'я і натисніть кнопку Створити .

A VBA з'явиться вікно.

  • Потім введіть в нього наступні коди 
 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub
  • Зараз повернутися назад до твого аркуш .

Розподіл кодів

  • Тут я створив Sub процедуру, DialogBox .
  • Потім використовується Діалоги (xlDialogPrint).Show для відкриття Діалогове вікно друку .

Кнопка створена.

  • Клацніть правою кнопкою миші на кнопка та оберіть Редагувати текст від Контекстне меню змінити назву кнопки.

  • Пізніше, просто тип в "Урядовому кур'єрі". ім'я і клацнути ваш миша будь-де за межами Кнопки .

Потім просто натисніть кнопку Кнопка .

Тоді ви отримаєте Діалогове вікно друку Якщо ви хочете, ви можете Друк зараз.

Якщо у вас немає Принтер На даний момент ви можете Зберегти це як PDF . для подальшого використання або для Друк пізніше.

  • Тепер натисніть ГАРАЗД. .

  • У цей момент просто дайте ім'я і натисніть Зберегти .

Ось роздрукований PDF .

Читати далі: Як налаштувати параметри друку в Excel (8 корисних порад)

2. використання коду VBA для створення кнопки друку на активному аркуші

Тут ми будемо використовувати VBA до друк an Активний Лист .

Сходинки:

  • Слідкуйте за перший двоступеневий з першого розділу для створення кнопка і Призначити макрос .
  • Напишіть Назва макросу і натисніть Новий .

Незабаром після цього VBA відкриється вікно.

  • Тоді писати наступне коди в ньому... 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • До зустрічі, повернутися назад до

Розподіл кодів

  • Тут я створив Sub процедуру, ActiveSheet .
  • Потім використовується Роздрукувати до вибрати в "Урядовому кур'єрі". активний аркуш і друк це.
  • Тепер просто преса в "Урядовому кур'єрі". Кнопка .

A діалогове вікно названий Зберегти вихідні дані як відкриється.

  • Дайте мені ім'я і натисніть Зберегти .

Після цього ви отримаєте роздрукований PDF .

Ви можете легко змінити принтер якщо тобі це потрібно.

  • Натисніть на Файл поруч з Головна сторінка

  • Потім виберіть Друк опція та клацнути на випадаючий щоб вибрати Принтер .

Читати далі: Як роздрукувати всі аркуші в Excel (3 способи)

3. Застосування коду VBA для створення кнопки друку на вибраних аркушах в Excel

Якщо ви хочете Друк специфічний вибрані листи то також можливе використання VBA .

Сходинки:

  • Слідкуйте за перший двоступеневий з першого розділу для створення кнопка і призначати a макрос .
  • Тоді напишіть Назва макросу і натисніть Новий .

Незабаром після цього VBA відкриється вікно.

  • До зустрічі, тип наступне коди в ньому... 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

Тоді повернутися назад до твого аркуш .

Розподіл кодів

  • Тут я створив Sub процедуру, Вибрані аркуші .
  • Потім використовується ActiveWindow до вибрати аркуш від активний Excel вікно .
  • Далі, використано Роздрукувати до друку множинний обраний листи .
  • Зараз вибрати аркуші і натисніть кнопку Кнопка друку Я вибрав два аркуші.

  • Дайте мені ім'я для PDF і натисніть Зберегти .

На сьогоднішній день, на жаль, це не так. PDF файл має t дві сторінки для два аркуші .

Читати далі: Як надрукувати певні аркуші за допомогою макросу VBA в Excel (4 способи)

Схожі читання:

  • Як роздрукувати аркуш Excel у форматі А4 (4 способи)
  • Як зберегти верхній колонтитул в Excel при друку (3 способи)
  • Excel VBA: як встановити область друку динамічно (7 способів)
  • Як надрукувати аркуш Excel з лініями (3 простих способи)
  • Як роздрукувати графік в Excel (5 способів)

4. Вбудувати Excel VBA для створення кнопки друку на певному аркуші з вибраним діапазоном

Ось, ми зробимо Кнопка друку до друк a обраний діапазон від конкретний лист .

Сходинки:

  • Слідкуйте за перший двоступеневий з першого розділу для створення кнопка і призначити макрос.
  • Напишіть Назва макросу і натисніть Новий .

Незабаром після цього VBA відкриється вікно.

  • Тоді писати наступне коди - 
 Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub
  • Пізніше поверніться до свого аркуша.

Розподіл кодів

  • Тут я створив Sub процедуру, SpecificSheetnRange .
  • Потім використовується З заява до вибрати a специфічний
  • Наступний, PrintArea = "B2:D11".PrintOut воля вибрати в "Урядовому кур'єрі". діапазон від конкретний лист і буде Друк це.
  • Тепер просто преса в "Урядовому кур'єрі". Кнопка друку .

  • Встановіть ім'я для PDF і натисніть Зберегти .

Це - "Успіх", або "Успіх". друкований певний аркуш.

Читати далі: Excel VBA: встановлення області друку для декількох діапазонів (5 прикладів)

5. Вбудувати Excel VBA для створення кнопки друку на активному аркуші з виділеним діапазоном

Також, ви можете вибрати діапазон від активний аркуш і може зробити Кнопка друку до друк за допомогою VBA .

Сходинки:

  • Слідкуйте за перший двоступеневий з першого розділу для створення кнопка і призначити макрос .
  • Пізніше напишіть Назва макросу і натисніть Новий .

Незабаром після цього VBA відкриється вікно.

  • В рамках проекту VBA вікно, писати наступне коди - 
 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub
  • Тоді повернутися назад до твого аркуш .

Розподіл кодів

  • Тут я створив Sub процедуру, ActiveSheetnRange .
  • Потім використовується Range("B2:D11").PrintOut до вибрати a діапазон і друк.
  • Натисніть кнопку Кнопка друку .

  • Дайте мені ім'я і натисніть Зберегти .

Тоді ви отримаєте діапазон друку .

Читати далі: Кнопка Excel для друку певних аркушів (з простими кроками)

Висновок

Сподіваюся, описані вище процедури будуть достатньо хороші для використання коду на VBA для кнопка друку Не соромтеся задавати будь-які питання в коментарях і, будь ласка, дайте мені зворотній зв'язок.

Попередній пост Як знайти рівняння лінії тренду в Excel (3 підходящих способи)
Наступний пост Як використовувати VLOOKUP, якщо комірка містить слово в тексті в Excel

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.