1:
2:
3:
4:
5:

Procedure TFrmMain.MnuPrintClick(Sender: TObject);
Begin
    If DlgPrint.Execute Then
     (ActiveMDIChild As TFrmChild).PrintText;
End; {* MnuPrintClick *}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

{* Drucken *}

Procedure TFrmChild.PrintText;
Var
   Lpt: System.Text;
   I: Integer;
Begin
   AssignPrn(Lpt);
   Rewrite(Lpt);
   Try
     With Memo1 Do Begin
       Printer.Canvas.Font := Font;
       For I := 0 To Lines.Count - 1 Do
         WriteLn(Lpt, Lines[I]);
     End;
   Finally
     CloseFile(Lpt);
   End;
End; {* PrintTText *}