1:
2:

Printer.Orientation := poLandscape;
Form1.Print;                    

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

procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;
  
    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure MakeScreenShot(const ATarget: TBitmap);
var DesktopDC: HDC;
begin
 DesktopDC:=CreateDC('DISPLAY', nil, nil, nil);
 try
  ATarget.PixelFormat:=pfDevice;
  ATarget.Width:=Form1.Width;
  ATarget.Height:=Form1.Height;
  BitBlt(ATarget.Canvas.Handle, -Form1.Left, -Form1.Top, Form1.Left+Form1.Width, Form1.Top+Form1.Height, DesktopDC, 0, 0, SRCCOPY)
 finally
  DeleteDC(DesktopDC)
 end
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
 Bitmap: TBitmap;
begin
 Bitmap:=GetFormImage;
 Bitmap.SaveToFile('Hallo_hier_ist_ein_Bitmap.bmp'); //Speichern als Beispiel
 Bitmap.Free;
end;                    

1:

Bild:=FormX.GetFormImage; //statt FormX musst du den Namen des Formulars, welches kopert werden soll, angegeben                    

1:
2:
3:

Printer.BeginDoc;
Printer.Canvas.Draw(Bild, 0, 0);
Printer.EndDoc                    

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

Uses Printers;

procedure TForm1.DruckeBild;
var Bmp: TBitmap;
begin
  Bmp:=TBitmap.Create;
  try
tbit:=Tgraph.GetFormImage;
       with Printer do begin
      BeginDoc;
      Canvas.Draw((PageWidth - Bmp.Width) div 2, (PageHeight - Bmp.Height) div 2, Bmp);
      EndDoc;
    end;
  finally
    Bmp.Free;
  end;
end;                    

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;