Како променити подразумевани штампач помоћу ВБА у програму Мицрософт Екцел 2016

Здраво!

Да ли се ваш подразумевани штампач налази у крајњем углу канцеларије?

Желите да одштампате свој лист са штампача поред себе?

Можете то променити у одељку за дијалог за штампање, али сте превише лењи да то учините?

Па, већина инвентивних људи је лења, попут тебе и мене.

Не брините. Имам те. Урадимо то једном заувек користећи ВБА …
Испод је код који подразумевани штампач мења према вашем избору штампача и враћа оригинални штампач на подразумевани штампач.

Суб Цханге_Дефаулт_Принтер ()
Сет минетворк = ЦреатеОбјецт ("ВСцрипт.нетворк")
минетворк.сетдефаултпринтер "Ваше име штампача" 'пиши овде се именују ваши штампачи
АцтивеСхеет.ПринтОут
минетворк.сетдефаултпринтер „Оригинал_Дефаулт_Принтер“ ‘вратите оригинални штампач на подразумевано ”
Енд Суб

Разбијмо сваку линију.

Сет минетворк = ЦреатеОбјецт ("ВСцрипт.нетворк"): Овде смо креирали објекат „моја мрежа”Од ВСцрипт.Нетворк користећи ВБА ЦреатеОбјецт () функција. Интерно се враћа “ИВсхНетворк2 ” врста објекта.
ВсхНетворк2 даје приступ мрежи рачунара. Можемо се играти са свим уређајима повезаним са рачунаром. За сада ћемо користити штампаче.
минетворк.сетдефаултпринтер "Ваше име штампача": У овој линији смо некада екцел вба селецт штампач. подразумевани штампач имовина ВсхНетворк2објецт се користи за избор подразумеваног штампача по вашем избору. Напишите име свог штампача између двоструких наводника (“”).
АцтивеСхеет.ПринтОут: Ова команда штампа ваш документ са промењеног штампача. Овде сам одштампао активни лист. Можете дати било којем имену листа да га одмах одштампа.
минетворк.сетдефаултпринтер „Оригинал_Дефаулт_Принтер“: Ова линија враћа ваш оригинални штампач на подразумевано. Ово није обавезно. Ако не желите да мењате, прескочите ову линију. Или га можете поставити на неки други штампач пре него што код истекне.