impressão linha a linha LX 300

Delphi

14/02/2003

Olá amigos

Estou precisando de uma função que imprima linha a linha na lx 300, pois a mesma vai funcionar com bobinas. Obrigado!!


Anonymous

Anonymous

Curtidas 0

Respostas

Toshio

Toshio

14/02/2003

Cara vc ja tentou usar o TPrintMatrix da secao de componentes deste clube?

8)


GOSTEI 0
Ltsilva

Ltsilva

14/02/2003

Este componente não funciona na EPSON LX300 !!!


GOSTEI 0
Anonymous

Anonymous

14/02/2003

Veja o exemplo abaixo;

AssignFILE(MeuTexto,´LPT1´);
ReWrite(MeuTexto);

Writeln(MeuTexto,sHospede);
If sGrupo <> ´´ Then
Writeln(MeuTexto,Chr(15)+´Unid.: ´ + sApto + ´ Grupo: ´ + sGrupo)
Else
Writeln(MeuTexto,´Unid.: ´ + sApto );
Writeln(MeuTexto,´Entr.: ´ + sEntrada + ´ Saida : ´ + sSaida);
Writeln(MeuTexto,´Adl..: ´ + sAdultos);
Writeln(MeuTexto,´´);
Writeln(MeuTexto,´´);
CloseFile(MeuTexto);


GOSTEI 0
Carnette

Carnette

14/02/2003

Este componente não funciona na EPSON LX300 !!!



dá uma olhada neste coisa que eu achei

http://www.vclcomponents.com/download.asp?ID_COMPONENT=14825


GOSTEI 0
Dor_poa

Dor_poa

14/02/2003

Procedure TForm1.Button1Click(Sender: TObject);
var Arquivo : TextFile;
begin
AssignFile(Arquivo,´LPT1´);
Rewrite(Arquivo);
Writeln(Arquivo,´Teste de impressao - Linha 0´);
Writeln(Arquivo,´Teste de impressao - Linha 1´);
Writeln(Arquivo,#2715+´Teste de Impressão - Linha 2´);
Writeln(Arquivo,´Teste de impressao - Linha 3´);
Writeln(Arquivo,2718+´Teste de Impressão - Linha 4´);
Writeln(Arquivo,´Teste de impressao - Linha 5´);
Writeln(Arquivo,12); // Ejeta a página
CloseFile(Arquivo);
end;


GOSTEI 0
POSTAR