JPEG aus TImage in bestimmter Größe drucken

Hallo!

Ein Bild drucken, kann man ja mit z.B. folgendem Codeschnipsel:

Delphi-Quellcode:

			procedure PrintBitmap(aGraphic: TGraphic, Title: string);

begin

  Printer.Title := Title;

  Printer.BeginDoc;

  Printer.Canvas.Draw(0, 0, aGraphic);

  Printer.EndDoc;

end;

Nun habe ich aber das Problem, dass das Bild meist in seiner Originalgröße ausgedruckt wird, oder aber noch kleiner. Ich habe mich auch schon hier durch die DP gesucht, durch Google gesucht, etc. aber ich finde einfach nichts passendes.

Was ich eigentlich nur will:

Ein Bild aus einer TImage-Komponente so zu drucken, dass es auf dem Papier nachher bestimmte Maße (cm) hat. Ist das Bild in der TImage zu groß, soll es eben auf diese Maße verkleinert, ist es zu klein, vergrößert werden (unproportional).

Aber ich habe bisher nichts passendes dazu gefunden...

MCXSC

JPEG aus TImage in bestimmter Größe drucken

JPEG aus TImage in bestimmter Größe drucken

Forumregeln