PDF

[ederxc]

Bom dia !

Moçada é o seguinte , quando mando imprimir usando uma virtual
PDF , os caracteres saem menores do que quando mando imprimir direto na impressora que no caso é uma deskjet 640C


Alguem saberia me dizer o porque dessas variações

té+++







:'(

[Luciano Bonfim]

geralmente esses PDFs virtuais tem uma configuraçäo que vc diz qual tamanho e tipo de letra, etc.... ele usa essas configuraçöes no momento da geraçäo do PDF.

dá uma olhada nelas...

[ederxc]

geralmente esses PDFs virtuais tem uma configuraçäo que vc diz qual tamanho e tipo de letra, etc.... ele usa essas configuraçöes no momento da geraçäo do PDF.

dá uma olhada nelas...

Luciano não consegui localizar este recurso nos parametros de minha impressora , qual impressora voce usa ou poderia me indicar , quero fazer testes com outra impressora

té++

[ederxc]

.... Acabei de testar com o PdfCreator , resultado = miesma mierda !

[sygecom]

.... Acabei de testar com o PdfCreator , resultado = miesma mierda !

Eder, eu uso PDCREATOR aqui e funga sem problemas ! qual classe esta usando para imprimir ?

[ederxc]

Win32BMP e Win32PRN


oPrintBMP:draw(oPrinter,{01,01,500,500}) //sai muito grande na impressora e com tamanho bacana na PDF

[asimoes]

Eder,

Tem o PrimoPDF que é bom.

[]´s

[ederxc]

Eder,

Tem o PrimoPDF que é bom.

[]´s

Brigado cara , porê,m ja tirei a duvida quanto a impressora , ou seja o problema não esta nela :'(

[ederxc]

buenas notches

Seguindo....

fiz um teste com a impressora do windows , e a visualização doc sai igual da impressora
ou seja , o problema esta na conversão para pdf

[sygecom]

Bom o que e como vc esta fazendo eu não sei, fiz um teste aqui com o PREVIEW da HBPRINTER + PDFcreator + HP1410 e todos os três sairam a mesma coisa !!!

[rochinha]

Amiguinho

Eu uso PDF4Free, o nome ja diz tudo.

[ederxc]

Bom o que e como vc esta fazendo eu não sei, fiz um teste aqui com o PREVIEW da HBPRINTER + PDFcreator + HP1410 e todos os três sairam a mesma coisa !!!

Que assim seja , se me ajudares a resolver o problema do Logo , ja serei eternamente grato ...

Código: Selecionar todos

***************(função imprimir)*********************
Static function  printer(doc)  

 
if empty(doc)   
   return(.t.)
endif     
*______________________inciando objeto
       
oPrinter := Win32Prn():new(doc)  // creates the object   
   
oPrinter:Landscape:=.T.  //Modo retrato .f. , paisagem .t.
oPrinter:FormType := 9   // Folha A4 
oPrinter:Copies   := 1     //quantidade copias


*______________________Cria e verica Objeto  
  
if ! oPrinter:create()=.t.        // requests system resources
   lalert("Não foi possivel CRIAR doc para impressora","SysFia")
   RETURN(.T.)        
endif                      
*_____________________Cria e verifica envio de Objeto
   
if !oPrinter:startDoc("SysFia_Maquinas")=.t.        
   alert("Não foi possivel ENVIAR doc para impressora","SysFia")
   RETURN(.T.)        
endif   
*______________________Cria e verica Objeto  BMP
oPrintBMP:=Win32BMP():new()   
   if ! oPrintBMP:loadfile(RCfile+"BMP_logo.bmp")
        msgstop("Não foi possivel encontrar LOGO.BMP","SysFia")
        RETURN(.T.)        
   ENDIF   
*_____________________Cabeçalho   e contexto


Sele D //Maquinas        
DBgotop()   

Do while ! EOF()   

   private ContLin:=1,Ln:=9          	                     		

   oPrinter:SetPrc(01,02)
   oPrintBMP:draw(oPrinter,{10,10,300,300})	
	
   oPrinter:SetFont("TIMES NEW ROMAN",30,0)	
   oPrinter:textOutAt(800,300,"SysFia - Relatório Maquinas")       
   
   oPrinter:leftMargin:=01                   
   oPrinter:setpen(0)	
   oprinter:line(100,Prow(),6000,Prow()-1)   	         
	
   
   oPrinter:SetPrc(13,00)
   oPrinter:SetFont("TIMES NEW ROMAN",11,{-1,18})
   
   
    Do while !EOF() .and. ContLin++<=35 //Total de linhas a serem usadas
      
      oPrinter:setprc(oprinter:prow(),00)  
      oPrinter:textOut(StrZero((D->cod),05))
      
      oPrinter:setprc(oprinter:prow(),07) 
      oPrinter:textOut(Substr(D->nome,1,30))
		
      oPrinter:setprc(oprinter:prow(),60) 
      oPrinter:textOut(iif(!empty(D->serie),(D->serie),"*****"))
		                                          		  	       oPrinter:setprc(oprinter:prow(),87) 			   
      oPrinter:textOut(iif(!empty(D->Tipo),(D->Tipo),"*****")) 	 	 				  
      oPrinter:setprc(oprinter:prow(),115) 			   
     oPrinter:textOut(iif(!empty(D->Setor),(substr(D->Setor,1,30)),"*****"))
		
oPrinter:setprc(oprinter:prow(),145) 			   
oPrinter:textOut(iif(!empty(D->DatFabri),("Dat. fabri-"+(D->datFabri)),("CEP - *****")))		
		
      oprinter:newline()      
			
      skip
   enddo
   if !EOF()
      oPrinter:Newpage()   
   endif
   oPrinter:setprc(oprinter:prow()+2,01) 			   
ENDDO	  	                  
oPrinter:endDoc()                 
oPrinter:destroy()   
oBmp:destroy()      
return(.t.)

[ederxc]

Boa noite ,acabei de instalar esta impressora que voce recomendou rochinha ...

e por encrivel que parece saiu normal o relatório , amanha testarei em meu trabalho para ver como que fica


té++

[ederxc]

Pois é , instalei esta impressora PDF4Free e ficou Joia , o que mando para imopressora deskejet sai identico na PDF virtual , porêm estava bom de mais para serv verdade ... esta impressora não aceita parametro de LANDSCAPE definidos préviamente via sistema

Código: Selecionar todos

oPrinter:Landscape:=.T.  //Modo retrato .f. , paisagem .t.

... e Tambem não faz autoRun do arquivo.pdf após impresso em disco.

Pois assim ja fico em partes satisfeito, se alguem souber qual função do XH para abrir determinado arquivo ja me seria de bom uso pois após geral o PDF , mandaria o Sitema Abri-lo .
-:]


te´++

[Luciano Bonfim]

Código: Selecionar todos

myrun("calc.exe")

function MYRUN( cComando )
local oShell, RET
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL
return iif( RET = 0, .T., .F. )