impressão em matricial com underline

Delphi

14/04/2003

Alguem sabe qual o escape que devo usar para imprimir um texto em uma matricial usando underline?
Vi isso em uma aplicação em clipper, ao inves de separar as linhas de um relatorio com um tarço ´-´, usaram underline.

Obrigado.


Marcelo.sistemas

Marcelo.sistemas

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

14/04/2003

Alguem sabe qual o escape que devo usar para imprimir um texto em uma matricial usando underline? Vi isso em uma aplicação em clipper, ao inves de separar as linhas de um relatorio com um tarço ´-´, usaram underline. Obrigado.

Marcelo,
Se eu entendi o que você quer. Vamos lá!
Em Clipper poderia ser feito facilmente pela não atualização da cabeça de impressão, p.e:

@ PRow()+1, 01 say "Teste" // Desloca para proxima linha
@ PRow(), 01 say "____" // <- Não atualizou PRow()


Se o código acima estiver correto, não poderei mais reclamar de minha memória.
No caso de estar usando AssignFile ou AssignPrn, podemos utilizar o retorno de carro (CR) ou Chr(13)/#13, veja:

// fragmento do código
Linha := ´Teste´ + 13 + ´_____´;
WriteLn(TextFile, Linha);


Controle ESC /P raise.


GOSTEI 0
Marconi

Marconi

14/04/2003

Underline, Negrito, mistura de dois caracteres, etc. Tudo isto funciona em Clipper bastando mandar reimprimir a mesma linha.

set devi to print
set print on
lin=10
col=10
@ lin,col say ´Isto é um teste´
@ lin,col say ´_____________´
set print off
set devi to screen

o que o clipper não aceita é voltar a numeração de linhas. Se isto acontecer ele pula para próxima página

Nunca experimentei, mas com o Textout do Delphi deve ser a mesma coisa pois os comandos passados para a impressora são os mesmos.

Marconi


GOSTEI 0
POSTAR