PC Toledo

Enviado: **24 Jan 2008 11:20**

Bom dia !

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.

Enviado: **24 Jan 2008 14:17**

Eder, vc consegue imprimir nessa impressora pelo Word por exemplo ?

Enviado: **24 Jan 2008 14:22**

sygecom escreveu:Eder, vc consegue imprimir nessa impressora pelo Word por exemplo ?

Sim , imprimo qualquer coisa nela , tanto que tenho um prg de etiquetas , em clipper usando o pgscript , e vai que é uma maravilha !

só com o win32prn que ta dando essa zica , pô , nem um "hello world "

Enviado: **24 Jan 2008 16:14**

Post a função que vc seleciona a impressora.

Enviado: **24 Jan 2008 16:47**

Código: Selecionar todos

impr:=getprinters()

nPrinter:=achoice(00,00,10,50,impr)

printer(impr[nprinter])

:(Neg

Enviado: **24 Jan 2008 17:00**

Vc deve tah comendo poeira em alguma coisa ai, pq não tem erro, eu tenho um desses museu aqui e funciona com win32prn.
https://pctoledo.org/forum/viewtopic.php?t=6465

Enviado: **25 Jan 2008 11:45**

sygecom escreveu:Vc deve tah comendo poeira em alguma coisa ai, pq não tem erro, eu tenho um desses museu aqui e funciona com win32prn.
https://pctoledo.org/forum/viewtopic.php?t=6465

.... Verdade estava comendo poeira

oPrinter:NewLine() // estava faltando essa linha antes do :TEXTOUT("")

PC Toledo

WIN32PRN Epson fx 2170

WIN32PRN Epson fx 2170