VB打印条码极简单的方法.doc

VB打印条码极简单的方法
公司接到一个医院病案的软件升级改造任务，在客户的程序中增加打印条码功能，因为客户的程序是VB开发的，因为客户提出需要自行调整打印参数等，一开始就调用word来打印，文字等信息都能够正常打印出，打印参数也能够调PI函数，先对条码控件抓图，在贴到picture控件后再打印，也是发现打印出的条码不能识别，最后也是使用打印form方法解决，大家有兴趣可以去看看他的博客。
博客原文：
应用VB编程实现条码打印
 (2013-06-04 00:27:32)
转载▼
分类： VB
    前几天公司突然接到客户的要求，需要我们公司在所有的外包装盒上贴上规定的条码，该条码由零件号、供应商代码、生产批次代码共三个部分组成，我公司立即购买了条码打印机，但是销售商提供的Intermec条码打印机并没有随机软件，该公司也不具备条码打印软件的开发能力，所以他们推荐我们使用一款通用的条码编辑打印软件的破解版本LABLEVIEW进行打印，通过使用过后发现使用这个软件对本公司的适用性不够、数据库连接处理能力较差，每一个数据都需要人工输入，出错的机率较大。为此，领导要求公司计算机室拿出一个好的办法来。我们经过一段时间的研究，发现通过VB编程调用微软OFFICE自带的条形码控件Microsoft Barcode Control ，这样做一是可以按需定制需打印的条形码，另一个软件短小精干，实用性强，占用系统资源也低，实用效果不错。考虑到刚开始的时候在网上查找资料很多都不实用而有这种需求的人很多，所以特把自己的设计经验拿出来与大家共享。希望能对有这方面需求的人有所帮助。
1、程序设计思路
首先要简要了解一下BARCODE9控件，这是微软自带的一个条形码控件，其中的STYLE属性控制条形码的类形，当值为6时为CODE39码（仅包含最简单的数值和字符，零售流通领域常用），当值为7时为CODE128码（字符比较齐全，目前比较通用），结合客户的要求，编程中使用CODE128码。
编程思路为：针对客户的条码三段式要求，第一段为零件号，第二段为供应商编码（固定），第三段为基本由日期生成的生产批次号，窗体中设置可选择的组合框控件用于选择不同的零件号，文本框控件用于设置供应商编码，另一文本框用于读取系统日期并按要求输出生产批次。再设置一条形码控件，由条码确定按钮使条码的VALUE赋值为前面的三段式条码各段的累加。由于条形码控件没有打印属性，还得设置一个图片控件用于条形码的转贴打印。
再通过按钮控件打印。
选择零件号、供应商编码、生产批次号
条形码控件
条码输出
条码确定按钮
条码控件VALUE属性赋值
条码----剪贴板---图片控件---打印图片
条码打印按钮
 
 
 
 
2、程序设计步骤
  2．1窗体设计 根据流程设定，能很快设计出程序主窗体：如下图
2．2代码编写：
对按钮控件编写代码
条码确定及预览：
Private Sub Command1_Click()
= + Text2