Caros amigos encontro um pequeno problema para imprimir um teste com WIN32PRN() , Tenho aqui 02 impressoras fisicas e uma PDF sendo
EPSON FX 2170 , HP desckjet 640C e uma PDF
quando tento imprimir um "HELLO WORlD" na epson , o documento é criado na pasta da impressora , logo em seguida a impressora pucha o papel , ae "parece " que vai imprimir , e salta a pagina
logo em seguida finaliza a impressõa limpando o spooler da impressora ...Vejam a baixo como estou fazendo , resalto que funciona na deskjet e na PDF
Código: Selecionar todos
function printer(doc)
if empty(doc)
?não existe impressora instalada
return .t.
endif
oPrinter := Win32Prn():new(doc) // creates the object
oPrinter:Landscape:= .F.
oPrinter:FormType := 9
oPrinter:Copies := 1
if ! oPrinter:create()=.t. // requests system resources
?"Não foi possivel CRIAR doc para impressora"
endif
if !oPrinter:startDoc()=.t. // begins a document
?"Não foi possivel ENVIAR doc para impressora","SysFia"
endif
oPrinter:textOut( "Hello World" ) // print output methods
oPrinter:endDoc() // ends document definition and prints
oPrinter:destroy()
return .t.
