在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;

一切顺利!

---------------------------------

有几点需要注意:

1 该控件好像不是非常符合条码的宽窄条比,所以需要找一个合适的宽高比例,以保证可识读。

2 按照上面的方法,会采用打印机驱动程序的默认设置。因此需要在打印机驱动程序上选择合适的页面和相关处理作为默认值。当然,应该有更加好的方法对打印机驱动进行设置,可以搜索一下网络吧!

3 另外你也可以直接从网上下载一些条形码字体,然后设置打印字体为条形码字体,这种方法更为简单,但是对打印机和扫描枪有一定的精度要求。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/