Canvas an Drucker senden und drucken

[shmia]

Delphi-Quellcode:

begin
   Printer.BeginDoc;
   MeinTImage.PaintTo(Printer.Canvas.Handle, 100, 100);
   // da aber die Pixels deines Images auf dem Drucker 1 zu 1 umgesetzt werden
   // wird dein Bild recht klein werden
   Printer.EndDoc;
end;