Fórum impressão em matricial com underline #154859

14/04/2003

0

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

Responder

Posts

15/04/2003

Aroldo Zanela

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.


Responder

Gostei + 0

15/04/2003

Marconi

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar