Код 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 . для дальнейшего использования или для Печать позже.

  • Теперь нажмите OK .

  • В этот момент просто дайте имя и нажмите Сохранить .

Вот напечатанный PDF .

Читать далее: Как настроить параметры печати в Excel (8 подходящих трюков)

2. Использование кода VBA для создания кнопки печати для активного листа

Здесь мы будем использовать VBA на вывести сайт Активный Лист .

Шаги:

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

Вскоре после этого VBA откроется окно.

  • Затем написать следующий коды в нем... 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • Позже, вернуться к

Разбивка кода

  • Здесь я создал Sub процедура, ActiveSheet .
  • Затем использовали PrintOut на выберите сайт активный лист и вывести это.
  • Теперь только нажмите сайт Кнопка .

A диалоговое окно под названием Сохранить вывод на печать как откроется.

  • Дайте имя и нажмите Сохранить .

Затем вы получите распечатанный PDF .

Вы можете легко изменить принтер если вам это нужно.

  • Нажмите на сайте Файл рядом с Главная

  • Затем выберите Печать опция и нажмите на выпадающий чтобы выбрать Принтер .

Читать далее: Как распечатать все листы в Excel (3 способа)

3. Применение кода VBA для создания кнопки печати для выбранных листов в Excel

Если вы хотите Печать конкретный выбранные листы тогда можно также использовать VBA .

Шаги:

  • Следуйте за первый двухшаговый из первого раздела для создания кнопка и назначить a макрос .
  • Затем напишите Имя макроса и нажмите Новый .

Вскоре после этого VBA откроется окно.

  • Позже, тип следующий коды в нем... 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

Затем вернуться к вашему лист .

Разбивка кода

  • Здесь я создал Sub процедура, SelectedSheets .
  • Затем использовали ActiveWindow на выберите лист из активный Excel окно .
  • Далее, использовали PrintOut для печати множество выбранный листы .
  • Сейчас выбрать листы и нажмите кнопку Кнопка печати Я выбрал два листа.

  • Дайте имя для PDF и нажмите Сохранить .

Сайт PDF файл имеет т wo pages для два листа .

Читать далее: Как распечатать конкретные листы с помощью макроса VBA в Excel (4 способа)

Похожие чтения:

  • Как распечатать лист Excel в формате A4 (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. Не стесняйтесь задавать любые вопросы в разделе комментариев и, пожалуйста, дайте мне обратную связь.

Предыдущий пост Как найти уравнение линии тренда в Excel (3 подходящих способа)
Следующий пост Как использовать VLOOKUP, если ячейка содержит слово в тексте в Excel

Хью Уэст — опытный тренер и аналитик Excel с более чем 10-летним опытом работы в отрасли. Он имеет степень бакалавра в области бухгалтерского учета и финансов и степень магистра делового администрирования. Хью страстно любит преподавать и разработал уникальный подход к обучению, которому легко следовать и который легко понять. Его экспертные знания Excel помогли тысячам студентов и специалистов по всему миру улучшить свои навыки и преуспеть в своей карьере. В своем блоге Хью делится своими знаниями со всем миром, предлагая бесплатные учебные пособия по Excel и онлайн-обучение, чтобы помочь отдельным лицам и компаниям полностью раскрыть свой потенциал.