Impressão em LX para bobina de 80 colunas
Ola, preciso urgentimente saber como eu faço para configurar a impressão de um cupom/ingresso, no Delphi 5, usando uma LX em bobinas de 80 colunas. Preciso muito de ajuda, desde ja agradeco.
Fabio
Fabio
Fvieira
Curtidas 0
Respostas
Mario_limoeiro
02/04/2004
procedure Imprimir80Colunas();
Var A:TextFile;
begin
AssignFile(A,´LPT1´);
Rewrite(A);
Writeln(A,´o seu texto no Bilhete de passagem´);
Writeln(A,´o seu texto no Bilhete de passagem´);
//No final vc finaliza o envio para impressora ;
closeFile(A);
end;
Um Abraço ..
Var A:TextFile;
begin
AssignFile(A,´LPT1´);
Rewrite(A);
Writeln(A,´o seu texto no Bilhete de passagem´);
Writeln(A,´o seu texto no Bilhete de passagem´);
//No final vc finaliza o envio para impressora ;
closeFile(A);
end;
Um Abraço ..
GOSTEI 0
Ulissesn
02/04/2004
Tchê.....
Já ouvistes falar do método AssignFile para abrir arquivos, use o mesmo só que trocando algumas coordenadas:
var
F: TextFile;
S: string;
begin
AssignFile(F,´LPT1´); { Porta da Impressora}
Writeln(F, S); { Escreve a linha que deseja, Onde ´S´ tem o conteúdo que deseja escrever.... }
CloseFile(F);
end;
Espero ter ajudado
Ulisses
Já ouvistes falar do método AssignFile para abrir arquivos, use o mesmo só que trocando algumas coordenadas:
var
F: TextFile;
S: string;
begin
AssignFile(F,´LPT1´); { Porta da Impressora}
Writeln(F, S); { Escreve a linha que deseja, Onde ´S´ tem o conteúdo que deseja escrever.... }
CloseFile(F);
end;
Espero ter ajudado
Ulisses
GOSTEI 0