XProfan

English

sometimes must one Steuerbefehle directly on a printer Send,
so GEHTS:
Compile Mark Separation

RawDataToPrinter("Druckername","text")
DEF OpenPrinterA(3) !"winspool.drv","OpenPrinterA"
DEF StartDocPrinter(3) !"winspool.drv","StartDocPrinterA"
DEF StartPagePrinter(1) !"winspool.drv","StartPagePrinter"
DEF WritePrinter(4) !"winspool.drv","WritePrinter"
DEF EndPagePrinter(1) !"winspool.drv","EndPagePrinter"
DEF EndDocPrinter(1) !"winspool.drv","EndDocPrinter"
DEF ClosePrinter(1) !"winspool.drv","ClosePrinter"

BOOL RawDataToPrinter( string szPrinterName, string text){

    long lpData=addr(text),dwCount=len(text)
    long hPrinter=globalAlloc(gPTR,4)
    long DocInfo=globalAlloc(gPTR,12)
    long dwJob
    long dwBytesWritten=globalAlloc(gPTR,4)
    string raw="RAW"
    string docname="Druckauftrag"
    long docinfo&,0=addr(docname),0,addr(raw)
    long tmp=globalAlloc(gPTR,128)
    char tmp&,0=szPrinterName
    casenot OpenPrinterA( tmp, hPrinter, 0 ) : return false
    hPrinter=long(hPrinter,0)
    dwJob = StartDocPrinter( hPrinter, 1, DocInfo )
    StartPagePrinter( hPrinter )
    WritePrinter( hPrinter, lpData, dwCount, dwBytesWritten )
    EndPagePrinter( hPrinter );
    EndDocPrinter( hPrinter );
    ClosePrinter( hPrinter );
    return TRUE

nt color=#0000FF>}