[Страдалецъ]

С битмапом работают точно так-же как и с принтером в вашем примере:
Вот простенький пример:

Код:

Var
  Bmp: TBitmap;
begin
 Bmp := TBitmap.Create;
 Bmp.Width := Printer.PageWidth;
 Bmp.Height := Printer.PageHeight;
 Bmp.Canvas.Pen.Color := clBlack;
 Bmp.Canvas.Pen.Width := 4;
 Bmp.Canvas.Ellipse(50,50,200,200);
 Bmp.Canvas.Font.Name := 'Times New Roman';
 Bmp.Canvas.Font.Size := 24;
 Bmp.Canvas.TextOut(500,500,'Привет!');
 Printer.BeginDoc;
 Printer.Canvas.Draw(0, 0, Bmp);
 Printer.EndDoc;
 Bmp.Free;
end;