• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab矩阵学习二 矩阵的修改发布时间:2022-07-18
下一篇:
matlab矩阵的操作发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap