setfont no win32prn

[tonyx]

estou usando
setfont(´corier new´,10,10) // normal
setfont(´corier new´,7 , 14) // comprimido

imprimi 1 ate 80 no normal
imprimi 1 ate 132 no comprimido
lado esquerdo numro de linhas


estou achando as letras muito juntas
passa dos 60 linhas folha A4

voces tem DICAs

[sygecom]

De uma olhada no link abaixo e compile o exemplo que o Hasse postou ai tem o que vc procura:
viewtopic.php?t=6465

Código: Selecionar todos

oPrinter:SetFont('Courier New',12,{1,nFont}, 0, .F., .F.)
         
oPrinter:Textout(STR(oprinter:LineHeight()    ) + "  -altura da linha",.t.)
oPrinter:Textout(STR(oprinter:CharWidth()     ) + "  -largura da coluna",.T.)
oPrinter:TextOut(STR(oPrinter:GetCharWidth()  ) + "  -GetCharWidth",.T.)
oPrinter:TextOut(STR(oPrinter:GetCharHeight() ) + "  -GetCharHeigth",.T.)
oPrinter:Textout(STR(oprinter:Prow()          ) + "  -Posição atual da " + "linha",.T.)

[tonyx]

no caso gostaria de saber
1- alem dos fontes "corier new, console " outra para A4 ??
2- caso de fixar altura entre linhas, margens - existe para win32prn
no exemplo ele so mostra sa vem fixo, e nao varia como o word
3 - testei estou usando agora (corier,10,11) // normal e (corie,6.5,18) // comprimir
4- adiciono o txt em dbf e lendo (mai facil controle de leitura)
5- estou usando [Compri_1], [Compri_2], [normal_1}, [normal_2], [Landscap] dentro txt
6- setchart(255) para acentos

----- as dicas do winprn32 sao boas mas atualmente estou em leitura simples do txt

[asimoes]

Amigos,

Estou precisando imprimir um relatório que tem 140 colunas, qual setfont devo colocar para esta impressão?

[]´s

[Hasse]

Caro Asimoes.

No teste passa dos 160 caracteres na largura do formulário A4. E pode conter ainda mais.

oPrinter:SetFont('Courier New',7,{1,20}, 0, .F., .F.)

[Hasse]

Caro Tonix.

Você pode adicionar qualquer fonte que esteja instalada no seu Windows.

A diferença é que a fonte Courier New tem pitch fixo, e a grande maioria das outras fontes tem pitch proporcional.

A altura da linha pode ser manipulada na Classe Win32prn(), mas não pode ser alterada num mesmo documento. Veja a linha contendo:

Código: Selecionar todos

::LineHeight       := INT(::PixelsPerInchY / 6)  // Default 6 lines per inch == # of pixels per line

No caso das margens, eu ainda não testei, mas creio que podem ser alteradas num mesmo documento. O Help do xHarbour nada menciona.