Passar string em Código ASCII para impressora
Como faço para imprimir caracteres acentuados diretamente para a impressora?
Estou fazendo o seguinte:
var impressora : TextFile;
begin
AssignFile(Impressora, ´LPT1:´);
Rewrite(Impressora);
Write(Impressora);
WriteLn(Impressora, ´café´); //aqui não sai caractere com acento
WriteLn(Impressora, [#162 + ´rfão´]); // aqui saí o ´ó´ acentuado
WriteLn(Impressora, ´´);
System.Close(Impressora);
Se eu mando o código ASCII do caractere funciona, mas seu mandar texto não, será que tem alguma função que converte todo o texto para o código ASCII?
Estou fazendo o seguinte:
var impressora : TextFile;
begin
AssignFile(Impressora, ´LPT1:´);
Rewrite(Impressora);
Write(Impressora);
WriteLn(Impressora, ´café´); //aqui não sai caractere com acento
WriteLn(Impressora, [#162 + ´rfão´]); // aqui saí o ´ó´ acentuado
WriteLn(Impressora, ´´);
System.Close(Impressora);
Se eu mando o código ASCII do caractere funciona, mas seu mandar texto não, será que tem alguma função que converte todo o texto para o código ASCII?
Zeus_br77
Curtidas 0
Respostas
Edupgarcia
03/03/2004
Tenho uma rotina que faz impressões matriciais com alta performance e qualidade e permite visualização ou impressão direta, já está protegida contra o erro de perda de caracteres, comum quando se usa ´printer´ ou ´wirteln´. por apenas R$ 10,00 (Cel. 9784-0995 Eduardo)
GOSTEI 0