delphi如何在条码打印机上打字

Question

新手刚刚学习delphi7.0,做一个项目，要求用条码打印机打印标签，比如在标签纸上面打印‘12345’我用的是38宽50高的标签打印纸，用了网上一段代码，为什么走纸正常就是打印不出来，打印都是空白的，请高手指点，另外下面代码什么意思啊，为什么就是不打印不了标签

procedure TForm1.FormCreate(Sender: TObject);
begin
BarCodeCtrl1.Value := '012345678';
BarCodeCtrl1.Width := 400;
BarCodeCtrl1.Height := 100;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
sR,tR:TRect;

begin
//记录图像
bmp := TBitmap.Create;
sR := Rect(BarCodeCtrl1.Left,BarCodeCtrl1.Top,BarCodeCtrl1.Left +
BarCodeCtrl1.Width, BarCodeCtrl1.Top + BarCodeCtrl1.Height);
tR := Rect(0,0,BarCodeCtrl1.Width,BarCodeCtrl1.Height);
bmp.Width := BarCodeCtrl1.Width;
bmp.Height := BarCodeCtrl1.Height;
bmp.Canvas.CopyRect(tR,Canvas,sR);
bmp.SaveToFile('c:\1.bmp');

printer.BeginDoc;
printer.Canvas.Font.Size := 15;
printer.Canvas.TextOut(10,10,'Barcodestrl demo');
printer.Canvas.Draw(20,100,bmp);
printer.EndDoc;
bmp.free;

end;