TImage: Bild mit TPrintDialog ausdrucken

[Helmi]

Hallo,

ich hab mich mal etwas schlau gemacht und hab das so gelöst:

Code:

procedure TForm1.Menu_DruckenClick(Sender: TObject);
var
  ScaleX,
  ScaleY: Integer;
  R: TRect;

begin
  //PrintDialog annzeigen
  If PrintDialog.Execute then
    begin
      with Printer do
        begin
          //Anzahl der Kopien
          Copies    := PrintDialog.Copies;

          BeginDoc;

          try
            ScaleX  := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
            ScaleY  := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;

            R       := Rect(0, 0, Image.Picture.Width * ScaleX,
                            Image.Picture.Height * ScaleY);

            Canvas.StretchDraw(R, Image.Picture.Graphic);
          finally
            EndDoc;
          end;
        end;
    end;
end;