Pessoal,
Fiz um relatório usando Win_Prn() a duvida que eu tenho é a seguinte, fazendo a impressão direto para a impressora sai certo nas margens definidas, agora se eu mando para uma impressora pdf, tipo pdfcreator ou qq outra impressora pdf não sai corretamente nas margens. Tem alguma configuração extra ?
Duvidas com Win_Prn() / Impressora PDF
Moderador: Moderadores
2 Mensagens • Página 1 de 1
Duvidas com Win_Prn() / Impressora PDF
por asimoes » 11 Dez 2017 09:02
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
-
asimoes Colaborador 
- Mensagens: 4919
- Data de registro: 26 Abr 2007 16:48
- Cidade/Estado: RIO DE JANEIRO-RJ
- Curtiu: 341 vezes
- Mens.Curtidas: 258 vezes
Duvidas com Win_Prn() / Impressora PDF
por lugab » 11 Jan 2018 08:45
Eu peguei uma solução aqui no fórum, Asimoes. Determina primeiro o número de caracteres por polegada e monta o Setfont() com esse número.... cai certinho no PDF
*-----------------------------------------
FUNCTION impWinPrint(cPrinter,xarqtxt)
*-----------------------------------------
#define DMPAPER_A4 9 // A4 210 x 297 mm
LOCAL oPrinter:= Win_Prn():New(cPrinter), aFonts, x, nColFixed,nColTTF, nColCharSet
LOCAL ncarpol, i, nHandle, cString
.
.
.
nhandle:= fopen( xarqtxt ) // read
cstring:= ""
xmaxlen:= 0
for i:= 1 to 10
IF gfreadline( @cString, nHandle )
IF LEN( cString ) > xmaxLen
xmaxLen:= LEN( cString )
endif
else
exit
endif
next
if xmaxlen <= 85
ncarpol:= 12
elseif xmaxlen <= 100
ncarpol:= 13
elseif xmaxlen <= 136
ncarpol:= 18
elseif xmaxlen <= 160
ncarpol:= 20
elseif xmaxlen <= 190
ncarpol:= 25
endif
oPrinter:SetFont('Courier New',,ncarpol)
lugab
-
lugab Colaborador - Mensagens: 843
- Data de registro: 19 Mai 2009 15:58
- Curtiu: 126 vezes
- Mens.Curtidas: 38 vezes
Ver tópicos ativos •
2 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Google Adsense [Bot] e 13 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
