Всем привет!

Ваш принтер по умолчанию расположен в дальнем углу офиса?

Хотите распечатать лист на принтере рядом с вами?

Вы можете изменить его в диалоговом окне печати, но вам тоже лень?

Что ж, самые изобретательные люди ленивы, как мы с вами.

Не волнуйся. Я понял тебя. Давайте сделаем это с помощью VBA раз и навсегда …​ Ниже приведен код, который изменяет ваш принтер по умолчанию на выбранный вами принтер и возвращает исходный принтер к принтеру по умолчанию.

Sub Change_Default_Printer()

Set mynetwork = CreateObject(«WScript.network»)

mynetwork.setdefaultprinter «Your Printer Name» ‘write your

printers name here

ActiveSheet.PrintOut

mynetwork.setdefaultprinter_ “original_Default_Printer”*

_‘*set back your original printer to default”

End Sub

Давайте разберем каждую строчку.

  1. Set mynetwork = CreateObject («WScript.network»): Здесь мы создали объект «моя сеть» из WScript.Network, используя функцию CreateObject () VBA. Внутренне он возвращает тип объекта «IWshNetwork2» .

WshNetwork2 дает доступ к сети компьютеров. Мы можем поиграть со всеми устройствами, подключенными к компьютеру. Пока мы будем использовать принтеры.

  1. mynetwork.setdefaultprinter «_ Имя вашего принтера «: _ В этой строке мы использовали excel vba для выбора принтера. Свойство default printer объекта WshNetwork2 * используется для выбора принтера по умолчанию по вашему выбору .__ Напишите имя вашего принтера в двойных кавычках («»).

  2. _ActiveSheet.PrintOut: _ Эта команда печатает ваш документ с измененного принтера. Я распечатал активный лист здесь. Вы можете дать любое имя листу, чтобы сразу его распечатать.

  3. mynetwork.setdefaultprinter _ «original_Default_Printer» __: _ В этой строке восстанавливается исходный принтер по умолчанию. Это необязательно.

Если вы не хотите ничего менять, пропустите эту строку. Или вы можете установить его на другой принтер до того, как закончится ваш код.

wsae

Как это было? Это сработало для вас? Это было трудно? Дай мне знать в комментариях. Следите за новостями, чтобы получить более инновационные и простые уроки. До свидания.

Популярные статьи:

link: / keyboard-formula-shortcuts-50-excel-shortcuts-to-Повышение-продуктивность [50 ярлыков Excel для повышения вашей производительности]

link: / формулы-и-функции-введение-функции-vlookup [Как использовать функцию ВПР в Excel]

link: / tips-countif-in-microsoft-excel [Как использовать функцию СЧЁТЕСЛИ в Excel 2016]

link: / excel-formula-and-function-excel-sumif-function [Как использовать функцию СУММЕСЛИ в Excel]