Как распечатать содержимое TMemo ?

← →
andrey_pst © (2002-08-14 09:24) [0]

Как распечатать содержимое TMemo ?
Некоторые строки могут превышать ширину листа - необходим перенос по словам.

← →
Anatoly Podgoretsky © (2002-08-14 09:50) [1]

С помощью WriteLn, самый простой способ, перенос автоматический, но результаты могут не устроить

← →
Andrey007 (2002-08-14 10:11) [2]

procedure TMessag.PrintClick(Sender: TObject);
var PrintText: TextFile; {declares a file variable}
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText); {Assigns PrintText to the printer}
ReWrite(PrintText); {Creates and opens the output file}
Printer.Canvas.Font:=Memo.Font; {Assigns Font settings to the canvas}
Printer.Canvas.Pen:=Canvas.Pen;
Printer.Canvas.Brush:=Canvas.Brush;
WriteLn(PrintText,Memo.Text);
CloseFile(PrintText) {Closes the printer variable}
end
end

Как распечатать содержимое TMemo ? Найти похожие ветки