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

 printer.orientation:=polandscape;
 with Printer do begin
      BeginDoc;
      Canvas.Draw((PageWidth - bmp.Width) div 2, (PageHeight - bmp.Height) div 2, bmp);
      EndDoc;
     end;
     bmp.Free;					

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:

bmp:=tbitmap.create;
 bmp:=Tgraph.GetFormImage;

 //printer.Orientation:=polandscape;



  with Printer do
  begin
    BeginDoc;
    // Mit BeginDoc wird ein Druckauftrag initiiert.
    // The StartDoc function starts a print job.
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      // Informationen über die Auflösung
      // Retrieves information about the Pixels per Inch of the Printer.
      RR := Rect(0, 0, bmp.Width*Scalex-900, bmp.Height*scaley-900);
            Canvas.StretchDraw(RR, bmp);
      // An die Auflösung anpassen
      // Stretch to fit

    finally
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
      // Textdatei-Variable.
      // Steht in finally - um auch bei Abbruch des Druckauftrages Papierausgabe
      // sicherzustellen
    end;
  end;