Как печатать из Memo

[Sanek777]

У меня в проге результат записывается в Memo. Я хочу чтобы при нажатии кнопки печать, все что находилось в Memo распечатывалось на принтере. Как мне это сделать?

[NikLik]

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('Error Printing text.', mtError, [mbOk], 0);
  end;
end;

PrintStrings(Memo1.Lines);

[_Dmitry]

А если Memo заменить на RichEdit, то в нем есть функция печати

 RichEdit1.Print(RichEdit1.Text);

[SERG1980]

Либо используйте компоненты для печати (QR,FR и т.д), или подключаете модуль Printers и работайте с ним