Forum

    Script = Новый ComObject("MSScriptControl.ScriptControl");
    Script.Language = "vbscript";                 
    Script.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");
         
    DefaultPrinter = TrimAll(Script.run("GetDefaultPrinter"));

&AtServer
Function GetPapersOfPrinter()
   ScriptGPP = New ComObject("MSScriptControl.ScriptControl");
   ScriptGPP.Language = "vbscript";
   pStrPaper = "
   |Function GetPrinterPaper()
   |Set objWMIService = GetObject(""winmgmts:"" _
   |& ""{impersonationLevel=impersonate}!\\.\root\cimv2"")
   |GetPrinterPaper=VbNullString
   |  Set colInstalledPages = objWMIService.ExecQuery _
   |  (""SELECT * FROM Win32_Printer Where DeviceID='" + StrReplace(ThisForm.Yazıcı,"'","""\""") + "'"")
   |        For Each objPage In colInstalledPages
   |          For Each objPageName In objPage.PrinterPaperNames
   |              GetPrinterPaper = GetPrinterPaper & "";-;"" & objPageName
   |          Next
   |        Next
   |End Function";
   ScriptGPP.AddCode(pStrPaper);   
   GetPrinterPapers = TrimAll(ScriptGPP.run("GetPrinterPaper"));
   PrinterPapersArr = StrSplit(GetPrinterPapers,";-;",False);   
   Vlp = New ValueList;
   Vlp.LoadValues(PrinterPapersArr);
   If Vlp.Count() = 0 Then
      Vlp.Add("A4");
   EndIf;
   Return Vlp;
EndFunction

&AtServer
Function GetPrinters()
   ScriptGP = New ComObject("MSScriptControl.ScriptControl");
   ScriptGP.Language = "vbscript";                 
   ScriptGP.AddCode("
   |Function GetPrinter()
   |Set objWMIService = GetObject(""winmgmts:"" _
   |& ""{impersonationLevel=impersonate}!\\.\root\cimv2"")
   |Set colInstalledPrinters = objWMIService.ExecQuery _
   | (""Select * from Win32_PrinterConfiguration"")
   |GetPrinter=VbNullString
   |For Each objPrinter in colInstalledPrinters
   |  GetPrinter=GetPrinter & objPrinter.Name
   |  GetPrinter=GetPrinter & "";--;""
   |Next
   |End Function");   
   GetPrinter = TrimAll(ScriptGP.run("GetPrinter"));
   PrintersArr = StrSplit(GetPrinter,";--;",False);
   Vl = New ValueList;
   Vl.LoadValues(PrintersArr);
   Return Vl;
EndFunction