[Paskal]

Всем програмерам прет!
Искал у вас на форуме и в сети но нужного ответа так и не нашел.
Теперь спрашиваю у вас: Как распечатать содержимое Memo?
Не могу понять как в PrintDialog1 Залить данные для печати. Плиз помогите
решить задачку

[NumLock]

чтобы по-быстрому, не напрягаясь, то загнать данные из Memo в RichEdit и из последнего:

Код:

RichEdit1.Print('My Document Name');

либо читать класс TPrinter

[Paskal]

Все спс сам нашел в книге
вот для тем кому интересно ---->

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Line: TextFile;
I: integer;
begin
If PrintDialog1.Execute then
 begin
       AssignPrn(Line);
       ReWrite(Line);
       Printer.Canvas.Font := Memo1.Font;
   for I := 0 to Memo1.Lines.Count -1 do Writeln (Line, Memo1.Lines[i]);
       System.CloseFile(Line);
end;

[Conscience]

Столкнулся с такой же проблемой, только я пытаюсь вызвать диалог печати из меню Файл - Печать.
Код вставил, но Delphi ругается на "AssignPrn"

Код:

procedure TForm1.N8Click(Sender: TObject);
var
Line: TextFile;
I: integer;
begin {кнопка "Печать (поле текст)"}
If dlgPnt1.Execute then
 begin
       AssignPrn(Line);
       ReWrite(Line);
       Printer.Canvas.Font := Mmo1.Font;
   for I := 0 to Mmo1.Lines.Count -1 do Writeln (Line, Memo1.Lines[i]);
       System.CloseFile(Line);
end;

[Conscience]

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

Столкнулся с такой же проблемой, только я пытаюсь вызвать диалог печати из меню Файл - Печать.
Код вставил, но Delphi ругается на "AssignPrn"

Код:

procedure TForm1.N8Click(Sender: TObject);
var
Line: TextFile;
I: integer;
begin {кнопка "Печать (поле текст)"}
If dlgPnt1.Execute then
 begin
       AssignPrn(Line);
       ReWrite(Line);
       Printer.Canvas.Font := Mmo1.Font;
   for I := 0 to Mmo1.Lines.Count -1 do Writeln (Line, Memo1.Lines[i]);
       System.CloseFile(Line);
end;

Нужно было в "uses"
добавить "Printers"