1:
2:
3:
4:
5:
6:

  Printer.BeginDoc;
  Printer.Canvas.Font.Size := 16;
  Printer.Canvas.TextOut(50, 50, 'Test');
  Printer.NewPage;
  Printer.Canvas.TextOut(50, 50, 'Test');
  Printer.EndDoc;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

procedure TSuchsel.DruckenSClick(Sender: TObject);
  const maxzeilen  = 57;
        texthoehe  = 40;   //  4 mm
        linkerRand = 100;  // 10 mm
        obererRand = 120;  // 10 mm
        Leer='                              ';
  var Zeile,K,x,y: Integer;
      Autor,Name,TextZeile:String;
      w,v:TSize;
      OUTDC:HDC;
      Heute:TDateTime;
      Jahr,Monat,Tag:Word;
  begin
   if SuchListe.Items.Count=0 then
    begin
     MessageDlg('Es gibt NICHTS zu drucken!!',mtError,[mbOk],0);
     exit;
    end;
   Heute:=Now;
   DecodeDate(Heute,Jahr,Monat,Tag);
   Autor:='Fiete '+IntToStr(Jahr);
   Name:='Suchsel';
   if PrintDialog.Execute then
    begin
     Printer.BeginDoc;
     outDC:=Printer.Canvas.Handle;
     setmapmode(OutDC,mm_lometric);     // 1/10 mm aber Y geht nach oben
     GetWindowExtEx(OutDC,w);           // Auflösung ermitteln
     GetViewportExtEx(OutDC,v);
     setmapmode(OutDC,MM_ANISOTROPIC);         // neuer Abb.-Modus
     SetWindowExtEX(OutDC,w.cx,w.cy,nil);      // Skalierung ...
     SetViewPortExtEx(OutDC,v.cx,-v.cy,nil);
     Printer.Canvas.Font.Name:='Courier New';
     Printer.Canvas.Brush.Color:=clwhite;   // Hintergrundfarbe
     Printer.Canvas.Font.Height:=texthoehe;
     Printer.Canvas.Font.Style:=[fsbold];  // Kopfzeile
     Printer.Canvas.TextOut(linkerRand,obererRand,Name+' © by '+Autor);
     Printer.Canvas.Font.style:=[];
     zeile:=0;
     for y:=0 to MaxY do
      begin
       TextZeile:='';
       for x:=0 to MaxX do TextZeile:=TextZeile+Feld[x,y]+' ';
       inc(zeile);
       Printer.Canvas.TextOut(linkerRand,obererRand+Zeile*(texthoehe+3),TextZeile);
      end;
     TextZeile:=' '; // Abstand zu Begriffen
     for x:=1 to 3 do
      begin
       inc(Zeile);
       Printer.Canvas.TextOut(linkerRand,obererRand+Zeile*(texthoehe+3),TextZeile);
      end;
     inc(Zeile);TextZeile:='Deine Suchbegriffe:';
     Printer.Canvas.TextOut(linkerRand,obererRand+Zeile*(texthoehe+3),TextZeile);
     inc(Zeile);TextZeile:=' ';
     Printer.Canvas.TextOut(linkerRand,obererRand+Zeile*(texthoehe+3),TextZeile);
     TextZeile:='';
     For K:=0 to SuchListe.Items.Count-1 do
      Begin
       TextZeile:=TextZeile+SuchListe.Items[K]+
                  Copy(Leer,1,30-Length(SuchListe.Items[K]));
       if K mod 3=2 then
        begin
         inc(zeile);
         Printer.Canvas.TextOut(linkerRand,obererRand+Zeile*(texthoehe+3),TextZeile);
         TextZeile:='';
        end;
      End;
     if TextZeile<>'' then
      begin
       inc(zeile);
       Printer.Canvas.TextOut(linkerRand,obererRand+Zeile*(texthoehe+3),TextZeile);
      end;
     Printer.EndDoc;
    end
  end;