Как да промените принтера по подразбиране с помощта на VBA в Microsoft Excel 2016

Здрасти!

Вашият принтер по подразбиране намира ли се в далечния ъгъл на офиса?

Искате ли да отпечатате вашия лист от принтера до вас?

Можете да го промените в раздела за диалоговия печат, но и вие сте твърде мързеливи, за да направите това?

Е, повечето изобретателни хора са мързеливи, като теб и мен.

Не се притеснявай. Хванах те. Нека го направим с помощта на VBA веднъж завинаги …
По -долу е кодът, който променя вашия принтер по подразбиране на вашия принтер и връща оригиналния принтер към принтера по подразбиране.

Sub Change_Default_Printer ()
Задайте mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Името на вашия принтер" 'пиши името на вашите принтери тук
ActiveSheet.PrintOut
mynetwork.setdefaultprinter „Original_Default_Printer“ ‘върнете оригиналния си принтер по подразбиране “
End Sub

Нека разбием всеки ред надолу.

Задайте mynetwork = CreateObject ("WScript.network"): Тук създадохме обект „моята мрежа" на WScript.Network използвайки VBA CreateObject () функция. Вътрешно се връща “IWshNetwork2 ” вид обект.
WshNetwork2 дава достъп до компютърната мрежа. Можем да си поиграем с всички устройства, свързани към компютъра. Засега ще използваме принтери.
mynetwork.setdefaultprinter "Името на вашия принтер": В този ред сме свикнали принтер excel vba select. принтер по подразбиране собственост на WshNetwork2object се използва за избор на принтер по подразбиране по ваш избор. Напишете името на вашия принтер между двойни кавички (“”).
ActiveSheet.PrintOut: Тази команда отпечатва вашия документ от променения принтер. Отпечатах активния лист тук. Можете да дадете име на всеки лист, за да го отпечатате веднага.
mynetwork.setdefaultprinter „Original_Default_Printer“: Този ред връща оригиналния ви принтер по подразбиране. Това е по избор. Ако не искате да променяте, пропуснете този ред. Или можете да го настроите на друг принтер, преди кодът ви да приключи.