XProfan

DEF GetDefaultPrinter(2) !"winspool.drv","GetDefaultPrinterA"

string stdDruckerName(){

    long l=globalAlloc(gPTR,4)
    long l&,0=256
    long s=globalAlloc(gPTR,256)
    GetDefaultPrinter(s,l)
    string r=string$(s,0)
    globalFree(l)
    globalFree(s)
    return r