Impressao direto para LPT1 de todos registros da tabela
Ola, gostaria de saber como imprimir todos os registros de uma tabela, usando o comando ´writeln´ diretamente para porta LPT1, pois so consigo imprimir 1.
Obrigado
Obrigado
Viptech
Curtidas 0
Respostas
Edilcimar
21/04/2005
faça um loop da tabela
while not tableX.eof do
begin
texto := campodesejado;
writeln(arquivo,texto);
next;
end;
while not tableX.eof do
begin
texto := campodesejado;
writeln(arquivo,texto);
next;
end;
GOSTEI 0