Необходимо найти из кода 1С имена принтеров которые видит 1с-ина!

Кто уже пробовал? И что получилось?

WshNetwork = CreateObject("WScript.Network");
oPrinters = WshNetwork.EnumPrinterConnections();
Для i = 0 По oPrinters.Count() - 1 Цикл
 Если (i % 2) = 1 Тогда
   Сообщить(oPrinters.Item(i));
 КонецЕсли;
КонецЦикла;

Большое спасибо ! :))) Вроде как всё нормуль...

Просто пытаюсь выбрать нужный принтер в Citrix. Проблемма с печатью этикеток...

Пример правда для восьмерки.
oLocator = Новый COMОбъект("WbemScripting.SWbemLocator");
oService = oLocator.ConnectServer();
ПринтерыВСистеме = oService.InstancesOf("Win32_Printer");
Для Каждого Принтер Из ПринтерыВСистеме Цикл
   ЭлементыФормы.ИмяПринтера.СписокВыбора.Добавить(Принтер.Name);
   Если Принтер.Default Тогда
       ИмяПринтера = Принтер.Name;
   КонецЕсли;        
КонецЦикла;

Спасибо и за этот пример... :) Скоро переводим эту базу на 8-ку... так что пасиб !

(4) Дай мыло отправлю готовую обработку печати этикеток 30 на 20 мм, сильно отличается от стандартной.

можно сюда lonelywind@hotbox.ru   Заранее спасибо!