Home » Tipps & Tricks » Drucker » Drucken » Ein Bild drucken

Ein Bild drucken

Die Antwort darauf ist relativ einfach. Zuerst muss die Unit für den Drucker eingebunden werden:

uses ... {andere Units}, Printers;

Nun, wenn ein Bild gedruckt werden soll, folgende Procedure aufrufen:

procedure PrintBitmap(aGraphic: TGraphic, Title: string);
begin
  Printer.Title:=Title;
  Printer.BeginDoc;
  Printer.Canvas.Draw(0,0,aGraphic);
  Printer.EndDoc;
end;

Der erste Parameter ist das zu druckende Bild. Dies kann sowohl von Typ TBitmap, TIcon, TMetaFile, oder aber auch von anderen Nachfahren von TGraphic sein, wie TJpegImage aus der Unit JPEG. Der zweite Parameter gibt der Titel des Druckauftrags an, der im Druckmanager angezeigt wird.