Hi!
These functions work fine with xHarbour but not run with Harbour.
If remove "//" also does not work.
*******************************
Function Imprime(cArq,cPrint)
*******************************
*
*
Local oPrn, aPrn:=GetPrinters()
if empty(aPrn)
MsgInfo( 'Not Print' )
return .f.
endif
If cPrint == Nil
cPrint := GetDefaultPrinter()
EndIf
//Set Printer to (GetDefaultPrinter() )
//Set(_SET_PRINTER)
//Set(_SET_PRINTFILE)
//Set Console Off
//Set Printer On
nRet := PrintFileRaw(cPrint,cArq,'Pedido')
if nRet < 1
MsgStop('Error Printing: '+rtrim(str(nRet)))
EndIf
//Linhas := mlcount(txt,nCol)
//For i:=1 to Linhas
// ? rTrim(MemoLine(txt,nCol,i,,,.f.))
//Next
//Set Printer Off
//Set Console On
//Set Printer to
Return .t.
TIA
Itamar M. Lins Jr.
_______________________________________________
Harbour-users mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour-users
