Mega Code Archive

 

Categories / Delphi / Graphic

 

Print a bitmap

Title: 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;