Novo comando p/ imprimir no Windows
Enviado: 03 Out 2014 11:04
win_PrintDataRaw( cPrinter, cData, cDocName )
+ added new PRG function:
win_PrintDataRaw( <cPrinter>, <cData> [, <cDocName>] )
-> <nBytesPrinted>
It's similar to win_PrintFileRaw() but sends to given printer passed
in 2-nd parameter <cData> instead of file body.
On error it returns negative value.
Código: Selecionar todos
if( win_PrintDataRaw( cPrinter, cData ) < 0 )
? win_GetLastErrorInfo()
best regards,
Przemek
/* by default wapi_GetLastError() is used if nError is not given */
FUNCTION win_GetLastErrorInfo( nError )
LOCAL cMsg := Space( 256 )
wapi_FormatMessage( NIL, NIL, nError, NIL, @cMsg )
RETURN cMsg
FUNCTION win_PrintDataRaw2( cPrinter, cData, cDocName, nLastError )
LOCAL nResult := win_PrintDataRaw( cPrinter, cData, cDocName )
nLastError := wapi_GetLastError()
RETURN nResult
Saudações,
Itamar M. Lins Jr.