[NumLock]

Код:

uses
  Printers,
...
var
  ABitmap: TBitmap;
begin
  Printer.BeginDoc;
  ABitmap:=TBitmap.Create;
  ABitmap.LoadFromFile('d:\Картинки\I.bmp');
  Printer.Canvas.StretchDraw(Rect(
    Printer.PageWidth div 4, Printer.PageWidth div 4,
    Printer.PageWidth div 2, Printer.PageWidth div 2), ABitmap);
  ABitmap.Free;
  Printer.EndDoc;
end;