Impressão Texto

Delphi

18/03/2008

Amigos tem como colocar negrito numa impressão TextFile? Obs: Eu não uso o objeto TPrinter da Unit Printers. Minha impressão, eu abro a variável TextFile direto na LPT1, ou seja, não uso Driver da Impressora. Mas caso, eu tenha que usar só para mudar a fonte de cada título e cada subtotal, eu faço, mas se puder mudar o atributo da fonte sem precisar usar o driver de impressão, é o que eu quero. Gratos!!!!


Paulo

Paulo

Curtidas 0

Respostas

Edilcimar

Edilcimar

18/03/2008

neste caso tem que enviar o comando específico da impressora utilizada


GOSTEI 0
Paulo

Paulo

18/03/2008

Achei o caracter que imprime em negrito. Coloque assim:
Writeln(arq,#27+69+´String a ser impressa´);


GOSTEI 0
Ffabiop

Ffabiop

18/03/2008

Para ficar independente de impressora e comando, você imprime o subtotal 2 vezes na mesma linha:
Write(Arq, Subtotal);
Writeln(Arq, Subtotal);
A impressora vai escrever duas vezes sobre a mesma linha;

Se estiver usando uma impressora epson manda o seguintes comandos:
Write(Arq, #27 + ´G´); //para iniciar
Write(Arq, 27 + ´H´); // para terminar
Ela vai imprimir duas vezes a mesma linha.


GOSTEI 0
Mazzi

Mazzi

18/03/2008

Não é melhor usar um componente para isso? Pois serviria para todos os seus relatórios.

Uso o Fortes Report. qq coisa dê um tok.

Abraços++


GOSTEI 0
POSTAR