Поместите эту функцию в глобальный модуль и вызывайте из любого места.
Функция глУстановитьПринтерПоУмолчанию() Экспорт
Перем Нетворк;
Нетворк = СоздатьОбъект("WScript.Network");
Принтеры = Нетворк.EnumPrinterConnections();
спсПринтеры = СоздатьОбъект("СписокЗначений");
//спсПринтеры.ДобавитьЗначение(0, "Показать документ");
Для СчЦ=0 По Принтеры.length-1 Цикл
спсПринтеры.ДобавитьЗначение(Принтеры.Item(СчЦ + 1), "Распечатать "+Принтеры.Item(СчЦ + 1));
СчЦ=СчЦ+1;
КонецЦикла;
Устройство = 0;
Если спсПринтеры.ВыбратьЗначение(Устройство, , , 60,1)=1 Тогда
Нетворк.SetDefaultPrinter(Устройство);
КонецЕсли;
Возврат Устройство;
КонецФункции
Тестировалось на 7.70.027.