Print a bitmap

This example shows how to print a bitmap.

uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
begin
  BitMap:=TBitmap.Create;
  BitMap.LoadFromFile('factory.bmp');
  with Printer do
  begin
    BeginDoc;
    Canvas.Draw(25,25,BitMap);
    EndDoc;
  end;
  BitMap.Free;
end;