在Delphi中打印条码的方法步骤如下 1 通过菜单”Component”下的”Import ActiveX”将“Microsoft Access Barcode Control 9.0”控件引入。这个控件(msbcode9.occx)随同 Office一起安装到系统中。 2 在“ActiveX”下可以看到该控件，可以直接拖放到窗体上。通过属性设置，可以设置条码类型，内容，宽度、高度等等。 条码的数据是通过”Value”属性设置，也通过Datasource等设置引用数据库字段。高度和宽度通过控件的高度宽度设置，空白区域没有找到办法缩减。 3 代码 在已经插入一个控件后，可以通过以下的处理进行打印。 我试过，打印、识读都没有问题。 有关不显示在界面上就进行打印的方法，希望用户自己查询。 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; procedure TForm1.FormCreate(Sender: TObject); begin //产生条码 BarCodeCtrl1.Value := '012345678'; BarCodeCtrl1.Width := 400; BarCodeCtrl1.Height := 100; end; 如果用键盘口的条码枪, 只用一个 edit,就可以了, 把 focu s 放到 edit控件上, 然后判断 回车.. 你用一个 cmd 窗口, 然后拿条码枪去扫条码, 就知道是怎么回事了. 基于Delphi的条码打印系统设计与实现 2007-10-25 09:15 作者： 王若平 出处： 计算机与信息技术 责任编辑：方舟 摘 要 介绍了如何在Delphi开发环境下实现条码打印，并结合示例详细介绍了条码打印系统的 设计思路及主要技术实现代码。 引言 随着社会的不断发展，条形码技术以其可靠性高、输入速度快、采集信息量大、灵活使用等优点为各行业带来了良好的经济效益和管理效益。如今条码仓库管理不只适用于商业商品库存的管理，同样适...
