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()