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

 
procedure TForm1.Button1Click(Sender: TObject);
var
r:TRect;
s:String;
begin
s := Memo1.Text;
r := Memo1.ClientRect;
if PrintDialog1.Execute then
   begin
   Printer.Begindoc;
   Printer.Title := 'TITEL';
   Printer.Canvas.Font.Size := 12;
   Printer.Canvas.Font.Name := 'Verdana';
   s := Memo1.Text;
   r := Memo1.ClientRect;
   r.Right  := 1500; // muss sein, ansonsten zu kleine Fläche!
   r.Bottom := 1500;
   Printer.Canvas.TextRect(r,1,1,s);
   DrawTextEx(Printer.Canvas.Handle, Pchar(s), Length(s), r, 16, nil);
   Printer.Enddoc;
   end;
end;