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

procedure TForm1.DruckenClick(Sender: TObject);
var   Bmp,Bmp2: TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp2 := TBitmap.Create;
  try
     Bmp.LoadFromFile('MyBitmap.bmp');
     Bmp2.LoadFromFile('MyBitmap2.bmp');
     with Printer do
     begin
       BeginDoc;
       Canvas.Draw((PageWidth - Bmp.Width) div 2,
                   (PageHeight - Bmp.Height) div 5,
                   Bmp);
       Canvas.Draw((PageWidth - Bmp.Width) div 2,
                   (PageHeight - Bmp.Height) * 4 div 5,
                   Bmp2);
      EndDoc; 
     end; 
  finally 
    Bmp.Free; 
  end;                    

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

 ScaleX:=1;
 ScaleY:=1;
 try
 with printer do
  begin
  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.
  PR := Rect(0, 0, Image1.picture.Width * scaleX, Image1.Picture.Height * ScaleY);

  BeginDoc;
  Canvas.StretchDraw(PR,PImg.Picture.Bitmap);
  EndDoc;
  end;
 except
 MessageDlg('Es wurde kein Drucker gefunden!',mtError,[mbOK],0);
 end;                    

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

var 
  myjpg: TJPEGImage; 
  mybmp:  TBitmap; 
begin 
  myjpg := TJPEGImage.Create; 
  try 
    myjpg.CompressionQuality := 100;
    myjpg.LoadFromFile(FileName); 
    mybmp := TBitmap.Create; 
    try 
      mybmp.Assign(myjpg); 
      mybmp.SaveTofile(ChangeFileExt(FileName, '.bmp')); 
    finally 
      mybmp.Free 
    end; 
  finally 
    myjpg.Free 
  end; 
end;