[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;

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