[Coco]

a ver si te sirve algo asi?

 procedure TForm1.Button1Click(Sender: TObject);
 var
     t:TextFile;
      i: integer;
 begin
 AssignPrn(t);
 rewrite(t);
 try
    Printer.Canvas.Font:= Memo1.Font;
    for i:= 0 to Memo1.Lines.Count-1 do
       writeln(t,memo1.lines[i]);
 finally
    CloseFile(t);
 end;
 end;

Saludos