[itsi]

buenas, yo tenia el mismo problema pero lo consegui.....

Prueba esta codigo :

procedure TForm1.btImprimirClick(Sender: TObject);
var
Impresora : TextFile;
Texto : string;
begin
Texto :=' linea de texto';
with Printer do
begin
AssignPrn(Impresora);
Title := 'Prueba '; //titulo que sale en el adminitrador impresoras
Rewrite(Impresora);
for n:= 0 to 200 do
Writeln(Impresora, Texto);//Imprime 200 lineas...

CloseFile(Impresora);
end;


espero que os sirva