Printer:Orientation := poPortrait
   Printer:BeginDoc()
   Printer:Font:Name := "Arial"
   Printer:Font:Size := 10
   Printer:Font:Bold := .F.
   nLines := 56
   Ls=Printer:Font:Size/2
   Sb=5
   mTop1=10
   mTop2=5
   mLeft=5
   mRight=206

   With oBmp:=TBitmap():Create(Printer)
   :FileName:="acomedio.bmp"
   Endwith
          Printer:DrawBitmap(oBmp:Handle,{10,10,180,100})
  Printer:EndDoc()
  Printer:Preview()   
  oBmp:destroy()