Ваш онлайн помощник по 1С

Мы продолжаем наш цикл статей «Заметки программиста 1С«. В этой статье приводится код, позволяющий получить список принтеров Windows. Через некоторое время мы соберем все подобные функции в файл шаблонов, который можно будет установить в Конфигураторе.

мсПринтеров = ПолучитьМассивПринтеров ();
Если мсПринтеров.Количество () > 0 Тогда
Сообщить («Порт: «+мсПринтеров [0].Порт);    // порт принтера
Сообщить («Имя принтера: «+мсПринтеров [0].Имя); // имя принтера
КонецЕсли;
//
Функция ПолучитьМассивПринтеров ()
хШелл = Новый COMОбъект(«WScript.Network»);
мсПринтеры = Новый Массив;
хПринтеры = хШелл.EnumPrinterConnections ();
Для Ц = 0 По (хПринтеры.length / 2) — 1 Цикл
ТекСтруктура = Новый Структура («Порт, Имя», );
ТекСтруктура.Порт = хПринтеры.Item (Ц);
ТекСтруктура.Имя = хПринтеры.Item (Ц + 1);
мсПринтеры.Добавить(ТекСтруктура);
КонецЦикла;
Возврат мсПринтеры;
КонецФункции