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

在Delphi中打印条码的方法步骤如下相关推荐

135编辑器点击换图html,135编辑器中如何换图？135编辑器中换图的方法步骤
135编辑器中如何换图?135编辑器作为一款微信公众号编辑软件很受大家欢迎,那么大家知道135编辑器如何换图吗?今天的教程小编给大家带来的是135编辑器换图的方法步骤.让我们一起来看看吧. 方法/步骤 ...
Delphi中的匿名方法
Delphi及C++ Builder中底层的匿名方法及泛型目录 Delphi及C++ Builder中底层的匿名方法及泛型 1.System.SysUtils 2.System.Classes 3. ...
java中自定义异常的方法步骤
1.建立异常类,继承Exception eg :ScoreException2.定义业务类并在方法中使用throw 抛出异常,eg:TeacherDemo,中有一个CheckScore() 调用了th ...
android怎么实现广告页,如何：在Android应用中加入广告方法步骤！
我打算在第一个图拍照按钮下边的设置按钮加入弹出菜单(更多应用和关于2个选项),在更多应用菜单中展示广告墙,在第二个图界面的上方展示一个广告条,推送广告因为不占用广告界面,所以不用考虑放在哪里.(当然 ...
ActiveX数据对象之事务控制在VB和DELPHI中的应用
本文发表在中国人民解放军"信息工程大学"学报 2001年第3期. ActiveX数据对象之事务控制在VB和DELPHI中的应用 ...
fastreport在delphi中的使用
文章目录前言一.发布后的设计二.小计三.分组 1.分组时,MasterData选择保持一致性 2.分组设置四.页码五.透视表前言记录fastreport在delphi中的使用方法一. ...
如何给图片赋值_医学数据的变量类型及在SPSS中的赋值方法（医学统计前的重要步骤）——【杏花开医学统计】...
杏花开生物医药统计一号在手,统计无忧! 关注医学数据的变量类型及在SPSS中的赋值方法关键词:医学数据,变量类型,赋值,spss 下方为视频版和音频版,含软件操作步骤导读不同的医学数 ...
Delphi中动态调用DLL的方法
Delphi中动态调用dll的方法如下: function CallFunc(dllname, funcname: string; const param: array of const): DWOR ...
搜狗浏览器中如何删除自带工具搜狗浏览器删除自带工具的方法步骤
搜狗浏览器中如何删除自带工具?最近有小伙伴问我想要删除搜狗浏览器中的自带工具不知道该怎么办,今天小编就给大家带来删除搜狗浏览器中自带工具的方法步骤,让我们一起来看看吧. 方法/步骤 1.我们需要先打开 ...

在Delphi中打印条码的方法步骤如下

在Delphi中打印条码的方法步骤如下相关推荐

最新文章

热门文章