Вывести на печать данные из поля Мемо

[anghela]

Не получается вывести на печать данные из поля мемо.
Нашла такой код:

procedure TForm6_dover.Button1Click(Sender: TObject);
var f:TextFile;
    i:integer;
begin
  PrintDialog1.Execute;
  //AssignPrn(f);
  try
  Rewrite(f);
  for i:=0 to Memo1.Lines.Count-1 do
  Writeln(f, Memo1.Lines[i]);
  finally
  CloseFile(f);
end;
end;

не работает. Может кто знает, как справится с проблемой?

[ZX Spectrum-128]

Попробуйте этот код

uses Printers;

 

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('Ошибка печати текста.', mtError, [mbOk], 0);

end;

end;