Página 1 de 2
PDF
Enviado: 12 Fev 2008 11:36
por 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é+++
:'(
Enviado: 12 Fev 2008 12:17
por 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...
Enviado: 12 Fev 2008 13:18
por ederxc
Luciano Bonfim escreveu: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é++
Enviado: 12 Fev 2008 13:46
por ederxc
.... Acabei de testar com o PdfCreator , resultado = miesma mierda !
Enviado: 12 Fev 2008 14:05
por sygecom
ederxc escreveu:.... Acabei de testar com o PdfCreator , resultado = miesma mierda !
Eder, eu uso PDCREATOR aqui e funga sem problemas ! qual classe esta usando para imprimir ?
Enviado: 12 Fev 2008 14:36
por ederxc
Win32BMP e Win32PRN
oPrintBMP:draw(oPrinter,{01,01,500,500}) //sai muito grande na impressora e com tamanho bacana na PDF
Enviado: 12 Fev 2008 14:55
por asimoes
Eder,
Tem o PrimoPDF que é bom.
[]´s
Enviado: 12 Fev 2008 15:25
por ederxc
asimoes escreveu: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
:'(
Enviado: 12 Fev 2008 22:32
por 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
Enviado: 12 Fev 2008 23:22
por 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 !!!
Enviado: 13 Fev 2008 00:35
por rochinha
Amiguinho
Eu uso PDF4Free, o nome ja diz tudo.
Enviado: 13 Fev 2008 07:45
por ederxc
sygecom escreveu: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.)
Enviado: 13 Fev 2008 23:06
por 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é++
Enviado: 14 Fev 2008 14:40
por 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´++
Enviado: 14 Fev 2008 14:59
por 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. )