Перейти на старую версию сайта
Что делать если в 1с программно или интерактивно нужно узнать список принтеров, которые подключены к компьютеру? Стандартных средств для решения этой цели платформа 1с не имеет.
Ниже приведена функция, которая позволяет программисту 1с получить список принтеров.
Функция ПолучитьСписокПринтеров()
СписокПринтеров = Новый СписокЗначений;
СписокПринтеров.Очистить();
Принтеры = Новый COMОбъект(«WScript.Network»);
Prn = Принтеры.EnumPrinterConnections();
й = 0;
Пока й < Prn.Count() – 1 Цикл
СписокПринтеров.Добавить(Prn.Item(й + 1));
й = й + 2;
КонецЦикла;
Принтер = СписокПринтеров.ВыбратьЭлемент();
//даём пользователю выбрать принтер
Если Принтер <> Неопределено Тогда
……
Сообщить(Принтер.Значение); // например
……
КонецЕсли;
КонецФункции
Автор: © Мэтр
(Информация с ресурса http://www.icka.ru)
Read more...