Доброго времени суток!
!00% где-то уже обсуждалась эта тема и я даже как-то ее видел, но вот найти ,когда понадобилось, не удается.

В общем нужно определить, установлен ли в системе принтер с определенным именем?

Функция ЗаполнитьПринтеры()
   Принтеры = Новый СписокЗначений;
   Состояние("Составляется список принтеров. Подождите.");
   Попытка
       Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
       Сервисы = Locator.ConnectServer(".");
       Объекты = Сервисы.InstancesOf("Win32_Printer");
       // Теперь переберем все принтеры системы
       Для Каждого Принтер из Объекты Цикл
           ИмяПринтера = Принтер.Name;
           Пока Найти(ИмяПринтера,"\") > 0 Цикл
               ИмяПринтера = Сред(ИмяПринтера, Найти(ИмяПринтера,"\")+1);
           КонецЦикла;
           ИмяПринтера = СокрЛП(ИмяПринтера);
           Принтеры.Добавить(Принтер.Name,ИмяПринтера);
       КонецЦикла;
   Исключение
   КонецПопытки;
   Состояние();
   Возврат Принтеры;
КонецФункции

(1) этот пример я находил...но это ж ДОЛГО!!! Создается ком-объект, получаются все принтеры системы ,а потом методом перебора ищется нужный...ДОЛГО! Тем более там мы получаем весь набор свойств и методов этого объекта, а мне нужно просто "есть" или "нет" такой принтер в системе.

(2) А ты думаешь если тебе предоставить встроенную функцию 1С с таким функционалом, она будет делать это каким-то другим способом?

(3) ну должен же быть способ проще!

Объекты = Сервисы.ExecQuery("SELECT Name FROM Win32_Printer WHERE Name LIKE '%HPLJ1110%'");

ну и соответственно если хоть чото есть в Объекты - значит принтер есть.

Объекты = Сервисы.ExecQuery("SELECT * FROM Win32_Printer Prn WHERE Prn.Name LIKE '%HPLJ1110%'");
это на случай если первый запрос не прокатит

тьфу ты
Объекты = Сервисы.ExecQuery("SELECT Prn.Name FROM Win32_Printer Prn WHERE Prn.Name LIKE '%HPLJ1110%'");

(5) работать работает, но почему-то на обработку уходит секунд 5.

(9) а ты открой в проводнике папку Принтеры, и сравни

(10) тогда уж быстрее через "исключение" отлавливать! схватывает мгновенно :)

какой-то типовой метод табличного документа выдаёт ошибку если в системе не установлены принтеры. не помню точнее ))

(12) ну я так подозреваю ты про "НаПечать" :)

(13)  проверка уместится ли документ на листе принтера, что-то в этом роде ;)