Код 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

Първо ще създадем Бутон за печат и след това ще напише кодове за него.

Стъпки:

  • Кликнете върху както следва: Разработчик >> Вмъкване на >> Кутия за бутони.

Скоро след това ще получите знак плюс (+) във вашия курсор .

  • Drag че курсор според желанието ви размер на бутона и след известно време диалогов прозорец с име Присвояване на макрос ще се отвори.

  • Дайте име и натиснете New .

A VBA ще се появи прозорец.

  • След това въведете следните кодове в него. 
 Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub
  • Сега върнете се назад към вашия лист .

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

  • Тук създадох Под процедура, DialogBox .
  • След това използвайте Диалози (xlDialogPrint).Show за да отворите Диалогов прозорец за печат .

Бутонът е създаден.

  • Кликнете с десния бутон на мишката върху на бутон и изберете Редактиране на текст от Контекстно меню за да промените името на бутона.

  • По-късно, само тип на име и кликнете върху вашия мишка навсякъде извън бутона .

След това просто натиснете Бутон .

Тогава ще получите Диалогов прозорец за печат . Ако искате, можете да Отпечатване сега.

Ако нямате Принтер в този момент можете да Запазете го като PDF . за по-нататъшна употреба или за Отпечатване по-късно.

  • Сега натиснете OK .

  • В този момент просто дайте име и натиснете Запазете .

Ето и отпечатаното PDF .

Прочетете още: Как да коригирате настройките за печат в Excel (8 подходящи трика)

2. Използвайте код VBA, за да направите бутон за печат за активния лист

Тук ще използваме VBA към отпечатайте на Активен Лист .

Стъпки:

  • Следвайте първа двустъпка от първия раздел да създадете бутон и Задаване на макрос .
  • Напишете Име на макроса и натиснете Нов .

Скоро след това VBA ще се отвори прозорец.

  • След това напишете следното кодове в него... 
 Sub ActiveSheet() ActiveSheet.PrintOut End Sub
  • По-късно, върнете се назад към

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

  • Тук създадох Под процедура, ActiveSheet .
  • След това използвайте PrintOut към изберете на активен лист и отпечатайте това.
  • Сега просто натиснете на Бутон .

A диалогов прозорец с име Запазване на изхода за печат като ще се отвори.

  • Дайте име и натиснете Запазете .

След това ще получите отпечатаните PDF .

Можете лесно да промените принтер ако имате нужда от него.

  • Кликнете върху на Файл до Начало

  • След това изберете Отпечатване опция и кликнете върху на падащо меню за да изберете Принтер .

Прочетете още: Как да отпечатате всички листове в Excel (3 метода)

3. Прилагане на код VBA за създаване на бутон за печат за избрани листове в Excel

Ако искате да Отпечатване специфичен избрани листове тогава е възможно да се използва и VBA .

Стъпки:

  • Следвайте първа двустъпка от първия раздел да създадете бутон и назначете a макрос .
  • След това напишете Име на макроса и натиснете Нов .

Скоро след това VBA ще се отвори прозорец.

  • По-късно, тип следното кодове в него... 
 Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub

След това върнете се назад към вашия лист .

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

  • Тук създадох Под процедура, SelectedSheets .
  • След това използвайте ActiveWindow към изберете лист от активен Excel прозорец .
  • След това използвайте PrintOut за отпечатване множество избран листове .
  • Сега изберете листове и натиснете бутона Бутон за печат . избрах два листа.

  • Дайте име за PDF и натиснете Запазете .

Сайтът PDF файл има t две страници за два листа .

Прочетете още: Как да отпечатате определени листове с помощта на макрос 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
  • По-късно се върнете към листа си.

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

  • Тук създадох Под процедура, SpecificSheetnRange .
  • След това използвайте С изявление до изберете a специфични
  • Следващия, PrintArea = "B2:D11".PrintOut ще изберете на обхват от специфичен лист и ще Отпечатване това.
  • Сега просто натиснете на Бутон за печат .

  • Задайте a име за PDF и натиснете Запазете .

Това е отпечатан конкретен лист.

Прочетете още: Excel VBA: Задаване на област за печат за няколко диапазона (5 примера)

5. Вграждане на Excel VBA за създаване на бутон за печат за активен лист с избран обхват

Освен това можете да изберете диапазон от активен лист и може да направи Бутон за печат към отпечатайте да го използвате VBA .

Стъпки:

  • Следвайте първа двустъпка от първия раздел да създадете бутон и да зададете макрос .
  • По-късно напишете Име на макроса и натиснете Нов .

Скоро след това VBA ще се отвори прозорец.

  • В VBA прозорец, напишете следното кодове - 
 Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub
  • След това върнете се назад към вашия лист .

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

  • Тук създадох Под процедура, ActiveSheetnRange .
  • След това използвайте Range("B2:D11").PrintOut към изберете a обхват и печат.
  • Натиснете бутона Бутон за печат .

  • Дайте име и натиснете Запазете .

Тогава ще получите отпечатан обхват .

Прочетете още: Бутон на Excel за отпечатване на определени листове (с лесни стъпки)

Заключение

Надявам се, че процедурите, описани по-горе, ще бъдат достатъчно добри, за да се използва код VBA за бутон за печат Не се колебайте да задавате въпроси в раздела за коментари и моля да ми дадете обратна връзка.

Предишна публикация Как да намерим уравнението на трендлиния в Excel (3 подходящи начина)
Следваща публикация Как да използвате VLOOKUP, ако клетката съдържа дума в текста в Excel

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.