Печать документа в Memo

[vladchyzh]

Подскажите мне, как напечатать символы в Memo на принтере?

[Terran]

Сообщение от vladchyzh

Подскажите мне, как напечатать символы в Memo на принтере?

Распечатать можно так:

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
End;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
PrintStrings(Memo1.Lines);
End;