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