2 u013411151 u013411151 于 2014.01.07 22:22 提问

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

新手刚刚学习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;

Csdn user default icon
上传中...
上传图片
插入图片