Trocar fonte em matricial durante a impressão
28/09/2004
0
Pessoal, estou pesquisando no forum mais até agora nao consegui encontras. É sobre impressão direta na matricial estou fazendo assim:
var
Arq:TextFile;
Begin
AssignFile(Arq,´LPT1´);
ReWrite(Arq);
writeln(Arq,´Texto´);
writeln(Arq,´´);
writeln(Arq,´´);
CloseFile(arq);
Eu consigo trocar a fonte q está imprimindo usando esse tipo de impressão, é q eu precisava as vezes tipo aumentar a fonte ou até trocar e não sei como fazer.
var
Arq:TextFile;
Begin
AssignFile(Arq,´LPT1´);
ReWrite(Arq);
writeln(Arq,´Texto´);
writeln(Arq,´´);
writeln(Arq,´´);
CloseFile(arq);
Eu consigo trocar a fonte q está imprimindo usando esse tipo de impressão, é q eu precisava as vezes tipo aumentar a fonte ou até trocar e não sei como fazer.
Janete
Curtir tópico
+ 0
Responder
Posts
28/09/2004
Dopi
Usando acesso direto a porta matricial, não há como usar as fontes do Windows....
Cada impressora possui um conjunto proprio de fontes e código de comandos para ativa-las... Infelizmente os códigos variam muito.... O mais comum é o padrão EPSON ESC P/2
Exemplo:
chr(15) -> Liga Condensado
chr(18) -> Desliga condensado,
chr(14) -> Expandido (somente uma linha)
chr(12) -> eject form feed (FF)
chr(10) -> Pula de linha (LF)
chr(13) -> Retorno de carro (CR)
Consultando o manual da impressora dá pra descobrir todos os comandos...
Cada impressora possui um conjunto proprio de fontes e código de comandos para ativa-las... Infelizmente os códigos variam muito.... O mais comum é o padrão EPSON ESC P/2
Exemplo:
chr(15) -> Liga Condensado
chr(18) -> Desliga condensado,
chr(14) -> Expandido (somente uma linha)
chr(12) -> eject form feed (FF)
chr(10) -> Pula de linha (LF)
chr(13) -> Retorno de carro (CR)
Consultando o manual da impressora dá pra descobrir todos os comandos...
Responder
Clique aqui para fazer login e interagir na Comunidade :)
