Печать содержимого TMemo

[vakyla]

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

[raxp]

на будущее: берем delphi-world, вводим поиск печать из memo... получаем...

var t:textfile;
    I:Integer;
begin
 if PrintDialog1.Execute then
  begin
   AssignPrn(t);
   Rewrite(t);
   for i:=0 to Memo1.Lines.Count-1 do
   Writeln(t,Memo1.Lines[i]);
   CloseFile(t)
  end
end;

[vakyla]

printDialog1.execute у меня дельфи подчеркивает это слово почему???

[raxp]

киньте данный компонент на форму или не используйте его.

[vakyla]

большое спасибо все работает!

[vakyla]

printer.Font.Size:=14;
почему то у меня не получается шрифт увеличить пишет ошибку???

[raxp]

...и что такое printer?

[Terran]

Как вариант можно ещё сделать так:

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;

[vakyla]

я хотел увеличить шрифт печатуемого текста!!!

[Terran]

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

я хотел увеличить шрифт печатуемого текста!!!

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Printer.Canvas.Font.Size:=14;
PrintStrings(Memo1.Lines);
End;