PureBasic Forums - English

Code: Select all

Procedure.l ipprint_EnumPrinters(enum.l=#PRINTER_ENUM_LOCAL|#PRINTER_ENUM_CONNECTIONS) ; Enumerates all Printers
  Protected buf,cnt,mem,bytes,cntret,size,i
  
  
  If EnumPrinters_(enum,0,1,0,0,@buf,@cnt)=0
    mem=AllocateMemory(buf)
    If mem And EnumPrinters_(enum,0,1,mem,buf,@bytes,@cntret)
      size=SizeOf(PRINTER_INFO_1)
      If cntret
        For i=0 To cntret-1
          Debug PeekS(PeekL(mem+i*size+ 8))
        Next
      EndIf
      FreeMemory(mem)
      ProcedureReturn 1
    EndIf
  EndIf
EndProcedure


ipprint_EnumPrinters()

Code: Select all

ImportC ""
  CFArrayGetCount(theArray.i)
  CFArrayGetValueAtIndex(theArray.i, idx.i)
  PMPaperGetHeight(paper, *paperHeight.Double) 
  PMPaperGetWidth(paper, *paperWidth.Double)
  PMPaperGetPPDPaperName(paper.i, *paperName)
  PMPrinterGetName(printer.i)
  PMPrinterGetPaperList(printer.i, *paperList) 
  PMPrinterIsDefault(printer.i)
  PMServerCreatePrinterList(server.i, *printerList)
EndImport

point2mm.d = 254 / 720

PMServerCreatePrinterList(0, @printers)
printerCount = CFArrayGetCount(printers)

For i = 0 To printerCount - 1
  printer = CFArrayGetValueAtIndex(printers, i)
  
  printerName.s = PeekS(CocoaMessage(0, PMPrinterGetName(printer), "UTF8String"), -1, #PB_UTF8)
  If PMPrinterIsDefault(printer)
    Debug printerName + " (default)"
  Else
    Debug printerName
  EndIf
  
  PMPrinterGetPaperList(printer, @paperList)
  paperCount = CFArrayGetCount(paperList)
  
  For j = 0 To paperCount - 1
    paper = CFArrayGetValueAtIndex(paperList, j)
    PMPaperGetPPDPaperName(paper, @paperName_)
    
    PMPaperGetWidth(paper, @paperWidth.d)
    PMPaperGetHeight(paper, @paperHeight.d)
    paperWidth * point2mm
    paperHeight * point2mm
    
    paperName.s = PeekS(CocoaMessage(0, paperName_, "UTF8String"), -1, #PB_UTF8)
    Debug "   " + paperName + " (" + StrD(paperWidth, 0) +" x " + StrD(paperHeight, 0) + " mm)"
  Next
  
Next

Code: Select all

;
; tested with PureBasic v5.31 (x64)
; on Windows 8.1 Professional
; and OSX Mavericks (10.9.5)
;
; adapted from code by srod & Shardik
;

Procedure ListPrinters(Array p.s(1))
  
  CompilerIf #PB_Compiler_OS = #PB_OS_Windows
    enumFlags = #PRINTER_ENUM_LOCAL | #PRINTER_ENUM_CONNECTIONS
    If EnumPrinters_(enumFlags, #Null, 1, 0, 0, @deviceNamesBufferSize, @printerCount) = 0
      deviceNamesBuffer = AllocateMemory(deviceNamesBufferSize)
      If deviceNamesBuffer And EnumPrinters_(enumFlags, #Null, 1, 
         deviceNamesBuffer, deviceNamesBufferSize, @sizeRDB, @printerCount)
        If printerCount
          pInfoNameOffset = OffsetOf(PRINTER_INFO_1\pName)
          For i = 0 To (printerCount - 1)
            ReDim p(i)
            p(i) = PeekS(PeekL(deviceNamesBuffer + 
                   i * (SizeOf(PRINTER_INFO_1)) + pInfoNameOffset))
          Next
        EndIf
        FreeMemory(deviceNamesBuffer)
      EndIf
    EndIf      
    
  CompilerElseIf #PB_Compiler_OS = #PB_OS_MacOS
    printers = CocoaMessage(0, 0, "NSPrinter printerNames")
    If printers
      printerCount = CocoaMessage(0, printers, "count")
      For i = 0 To (printerCount - 1)
        ReDim p(i)
        p(i) = PeekS(CocoaMessage(0, CocoaMessage(0, printers, 
               "objectAtIndex:", i), "UTF8String"), -1, #PB_UTF8)
      Next i
    EndIf
    
  CompilerEndIf
  
  ProcedureReturn printerCount
EndProcedure

Dim printers.s(0)
Debug "List of attached printers (" + ListPrinters(printers()) + " detected):"
For i = 0 To ArraySize(printers())
  Debug Str(i + 1) + ". " + printers(i)  
Next i