Попытка
Items=ServiceSet.ExecQuery("Select * from Win32_Printer");
Исключение
Сообщить(ОписаниеОшибки());
Отказ=Истина;
возврат;
КонецПопытки;
Принтеры.Очистить();
для каждого стр из Items Цикл
новстр=Принтеры.Добавить();
новстр.ПоУмолчанию = стр.Default;
если новстр.ПоУмолчанию Тогда
ИмяПринтера= стр.Name;
ПринтерПоУмолчанию=ИмяПринтера;
КонецЕсли;
новстр.Имя = стр.Name;
новстр.Состояние=СписокСостояний[стр.PrinterStatus%8];
новстр.Комментарий=стр.Comment;
новстр.Описание=стр.Description;
новстр.ИмяПорта=стр.PortName;
КонецЦикла;
(4) а есть кусок кода как потом на этот список выслать один документ по очереди..?
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой