Функция ПолучитьСписокПринтеров()
СписокПринтеров = Новый СписокЗначений;
СписокПринтеров.Очистить();
Принтеры = Новый COMОбъект(«WScript.Network»);
Prn = Принтеры.EnumPrinterConnections();
й = 0;
Пока й < Prn.Count() – 1 Цикл
СписокПринтеров.Добавить(Prn.Item(й + 1));
й = й + 2;
КонецЦикла;
Принтер = СписокПринтеров.ВыбратьЭлемент();
//даём пользователю выбрать принтер
Если Принтер <> Неопределено Тогда
……
Сообщить(Принтер.Значение); // например
……
КонецЕсли;
КонецФункции   

 //Создаём новый СОМ-объект
Сеть = Новый СОМОбъект("Wscript.Network");
Попытка
      //устанавливаем принтер
      Сеть.AddWindowsPrinterConnection("\\ИмяСервера\ИмяПринтера");
      //делаем этот принтер принтером по умолчанию
      Сеть.SetDefaultPrinter("\\ИмяСервера\ИмяПринтера");
Исключение
      //в случае неудачного подключения принтера
      Сообщить("Невозможно произвести подключение");
КонецПопытки;   

 Для каждого... из... Цикл...КонецЦикла   

  // maharbA
Функция Hex(Пар)
  Результат="";
  Пока Пар>0 Цикл
    Результат=Сред("0123456789ABCDEF",Пар+1,1)+Результат;
    Пар=Цел(Пар/16) ;
  КонецЦикла;
  Возврат ""+Результат;
КонецФункции
Функция ПолучитьПринтерПоУмолчанию()
  ПринтерПоУмолчанию="";
  Scr = CreateObject("MSScriptControl.ScriptControl");
  Scr.Language = "javascript";
  Scr.Timeout=-1;
  КоллекцияПринтеров = Service.ExecQuery("S_elect Name,Attributes from Win32_Printer");
  Scr.AddObject("o",КоллекцияПринтеров);
  e=Scr.eval("new Enumerator(o);");
  Пока e.atEnd(0)=0 Цикл
    БайтАтрибута=Прав(Hex(e.item(0).Attributes),1);
    Если ((БайтАтрибута>"3") И (БайтАтрибута<"8")) или (БайтАтрибута>"B") Тогда
      ПринтерПоУмолчанию=e.item(0).Name;
      Прервать;
    КонецЕсли;
    e.moveNext(0);
  КонецЦикла;
  Возврат ПринтерПоУмолчанию;
КонецФункции