[YVitaliy]

Так любая канва его может печатать на себе без доработок
Можно печатать таким способом:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var bmp:TBitMap;
begin
  bmp:=TBitMap.Create;
   try
    bmp.Width:=BarCode1.Width;
    bmp.Height:=BarCode1.Height;
    bmp.Canvas.CopyRect(rect(0,0,bmp.Width,bmp.Height),BarCode1.Canvas ,
                        rect(0,0,BarCode1.Width,BarCode1.Height));
    //printer.PrinterIndex:=1;
    printer.BeginDoc;
    printer.Canvas.Draw(0,0,bmp);
    printer.EndDoc;
   finally
     bmp.Free;
   end;
end;

Но версия с TPanel, возможно, более "компактна" в плане кода.