Yo utilizo esto:
Código Delphi
[-]
Procedure Imprimir(Lista: TStrings);
var
tx: TextFile;
n: integer;
begin
AssignPrn(Printer, tx);
Rewrite(tx);
Printer.NewDoc;
for n:=0 to Lista.Count-1 do
begin
WriteLn(tx, Lista[n]);
end;
Printer.EndDoc;
CloseFile(tx);
end;
De todas formas, este código lo he puesto un poco de memorieta, y no estoy seguro de que esté completamente bien. Si alguien encuentra algún fallo, por favor, lo comunique.
Salu2