Имя: Пароль:
1C
1С v8
Как получить все возможные размеры бумаги принтера?
0 Antizdoba
 
09.08.11
15:51
Подскажите как получить размеры бумаги у принтера.
Принтера системы получаю таким образом.
Попытка
       Попытка
           Locator = Новый COMОбъект("WbemScripting.SWbemLocator");    
       Исключение
           Сообщить(ОписаниеОшибки());
           Возврат;
       КонецПопытки;
       
       ServicesSet =  Locator.ConnectServer(".");
       ObjectSet =    ServicesSet.InstancesOf("Win32_Printer");
       СЗ = Новый СписокЗначений;
       Для каждого Item Из ObjectSet Цикл
           СЗ.Добавить(Item.Caption, Item.Caption);
       КонецЦикла;
   Исключение
   КонецПопытки;

   ЭлементыФормы.Принтера.СписокВыбора = СЗ;
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.