Установка принтера по умолчанию в 1С 7.7.
Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)
Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)
Поместите эту функцию в глобальный модуль и вызывайте из любого места.
Функция глУстановитьПринтерПоУмолчанию() Экспорт
Перем Нетворк;
Нетворк = СоздатьОбъект("WScript.Network");
Принтеры = Нетворк.EnumPrinterConnections();
спсПринтеры = СоздатьОбъект("СписокЗначений");
//спсПринтеры.ДобавитьЗначение(0, "Показать документ");
Для СчЦ=0 По Принтеры.length-1 Цикл
спсПринтеры.ДобавитьЗначение(Принтеры.Item(СчЦ + 1), "Распечатать "+Принтеры.Item(СчЦ + 1));
СчЦ=СчЦ+1;
КонецЦикла;
Устройство = 0;
Если спсПринтеры.ВыбратьЗначение(Устройство, , , 60,1)=1 Тогда
Нетворк.SetDefaultPrinter(Устройство);
КонецЕсли;
Возврат Устройство;
КонецФункции
Тестировалось на 7.70.027.
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
ну… еще можно юзать практически «штатную» Формекс. Там есть метод получения списка принтеров. Плюс в том, что еще и готовность принтера получается
Ответ плюсую, толково… Про формекс просто не был в курсе… Да и формекс юзать сложнее, но преимущества налицо