XProfan

############### ##########
Drucker auflisten
Andreas Miethe * Juni 2003
##########################
DEF EnumPrinters(7) ! WINSPOOL.DRV,EnumPrintersA
DEF GetStandardPrinter(0) Substr$(ReadIni$(WIN.INI,Windows,Device),1,,)
DEF &PRINTER_ENUM_LOCAL 2
DEF &PRINTER_ENUM_DEFAULT 1
Declare PrinterValues#

Proc EnumPrinters

    Declare Printername&,Portname&,PrinterName$,PortName$,Attribs&
    Declare X&,dwNeeded&,dwReturned&
    EnumPrinters(&PRINTER_ENUM_LOCAL,0,5,0,0,ADDR(dwNeeded&),ADDR(dwReturned&))
    Dim PrinterValues#,dwNeeded&
    Clear PrinterValues#
    EnumPrinters(&PRINTER_ENUM_LOCAL ,0, 5, PrinterValues#, dwNeeded&, ADDR(dwNeeded&), ADDR(dwReturned&))

    While X& < dwReturned&*20

        Printername& = Long(PrinterValues#,x&)
        PrinterName$ = String$(Printername&,0)
        Attribs& = Long(PrinterValues#,x&+8)

        If AND(Attribs&,$4)

            Printername$ = Printername$ +  => Standarddrucker

        endif

        Print Printername$
        X& = X& + 20

    EndWhile

    Dispose PrinterValues#

Endproc

cls
EnumPrinters
Print
Print Standard-Drucker :
Print GetStandardPrinter()
waitinput

If AND(Attribs&,$4)re>

If Attribs& & $4re>