Информация о наличии бумаги в лотке принтера

Форум Программирование Общие вопросы программирования (Dev)
Платформа 1С v8.3 Windows
1. KolBbl4 13.09.18 10:31 Сейчас в теме
Здравствуйте!
Может кто сталкивался с такой задачей, мне перед тем как отправить из 1С документ на печать необходимо проверять наличие в лотке бумаги.
Пробовал через Новый COMОбъект("WScript.Network"), там такого свойства/метода у объекта не нашёл. Использую принтер "Kyocera ECOSYS P2035d KX"
+ – Ответить
Найденные решения
2. chuvak_yo 14.09.18 16:48 Сейчас в теме
ServiceSet=GetCOMObject("winmgmts:{impersonationLevel=impersonate}!\\" + ИмяКомпьютера() + "\root\cimv2");
PrinterSet=ServiceSet.Get("Win32_Printer");

Попытка
PrintersItems = ServiceSet.ExecQuery("Sel ect * fr om Win32_Printer");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

для каждого Item из PrintersItems Цикл

Элемент = Принтеры.Добавить();

Элемент.Значение = Item.Name;
Элемент.Пометка = Item.Default;
Элемент.НетБумаги = (Item.DetectedErrorState = 4);

КонецЦикла;
KolBbl4; +1 – Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. chuvak_yo 14.09.18 16:48 Сейчас в теме
ServiceSet=GetCOMObject("winmgmts:{impersonationLevel=impersonate}!\\" + ИмяКомпьютера() + "\root\cimv2");
PrinterSet=ServiceSet.Get("Win32_Printer");

Попытка
PrintersItems = ServiceSet.ExecQuery("Sel ect * fr om Win32_Printer");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;

для каждого Item из PrintersItems Цикл

Элемент = Принтеры.Добавить();

Элемент.Значение = Item.Name;
Элемент.Пометка = Item.Default;
Элемент.НетБумаги = (Item.DetectedErrorState = 4);

КонецЦикла;
KolBbl4; +1 – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот