Fórum Imprimindo registros #190601

GOSTARIA DE SABER COMO FAÇO PARA IMPRIMIR VARIAS COLUNAS DE REGISTROS DE UMA TABELA FORMATANDO A POSIÇÃO DE CADA REGISTRO EM UMA DETERMINADA COLUNA, COMO EXEMPLO ABAIXO

9999 XXXXXX 9999 9999
999 XXXXXXX 999 999
9999 XXXX 999 999999

UTILIZEI COMO EXEMPLO A FUNÇÃO ABAIXO, MAS COM ELA SÓ CONSIGO IMPRIMIR UMA LINHA DIRETA, SEM FORMATA A COLUNA
EM QUE O REGISTRO DEVE COMEÇAR A SER IMPRESSO.

procedure PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(´Error na impressao de texto.´, mtError, [mbOk], 0);
end;
end;


[b:d3f50f37be]Evite escrever sua mensagem com letras maiúsculas, pois equivalem a GRITAR.[/b:d3f50f37be]