my 1C. Полезная информация.

Получить список принтеров:
Процедура Сформировать()
     wshNetwork=createObject("WScript.Network");
     oPrinters=wshNetwork.EnumPrinterConnections();
     i=0;
     while i<oPrinters.count()-1 do
          message("Порт "+oPrinters.item(i)+" = "+oPrinters.item(i+1));
          i=i+2;
     enddo;
КонецПроцедуры
<cообщил avb>

Получить имя принтера "по умолчанию":
// Получить имя "принтера по умолчанию":
Процедура Сформировать()
     scrptCtrl=createobject("MSScriptControl.ScriptControl");
     scrptCtrl.language="vbscript";
     scrptCtrl.addcode("
     |Function GetDefaultPrinter()
     |GetDefaultPrinter=vbNullString
     |Set objWMIService=GetObject(""winmgmts:"" _
     |& ""{impersonationLevel=impersonate}!\\.\root\cimv2"")
     |Set colInstalledPrinters=objWMIService.ExecQuery _
     |(""Select * from Win32_Printer"")
     |For Each objPrinter in colInstalledPrinters
     |If objPrinter.Attributes and 4 Then
     |GetDefaultPrinter=objPrinter.Name
     |Exit For
     |End If
     |Next
     |End Function");
     Сообщить(scrptCtrl.run("GetDefaultPrinter"));
КонецПроцедуры
<cообщил Подвинцев Алексей aka Gloom>


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки