impress�o linha a linha LX 300

Question

Ol� amigosEstou precisando de uma fun��o que imprima linha a linha na lx 300, pois a mesma vai funcionar com bobinas. Obrigado!!...

Toshio · Answer

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

Ltsilva · Answer

Este componente n�o funciona na EPSON LX300 !!!...

Anonymous · Answer

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);

Carnette · Answer

[quote:5a0d6d50c8=�LTSILVA�]Este componente n�o funciona na EPSON LX300 !!![/quote:5a0d6d50c8]d� uma olhada neste coisa que eu achei //www.vclcomponents.com/download.asp?ID_COMPONENT=14825...

Dor_poa · Answer

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;