[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;