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

VB打印条码极简单的方法公司接到一个医院病案的软件升级改造任务，在客户的程序中增加打印条码功能，因为客户的程序是VB开发的，因为客户提出需要自行调整打印参数等，一开始就调用word来打印，文字等信息都能够正常打印出，打印参数也能够调整，打印效果很好，但是打印的条码不能识别；于是寻求万能的Internet，有哪些信誉好的足球投注网站后发现网上的许多资料都是于code39为例，要不就是复杂，使用code39的条码原理，使用画图控件画图来实现；要不就是看不懂，不能实现；要不就是很简单，也下载了相关的代码，也有在word中调用barcode控件，但是我一直到没有找到可行或者说看明白的（代码都是没有注释的），也下载多个代码，但是使用barcode在word打印的都没有成功，最后在绿竹小龙的博客中找到可行的方法，并且是说的很明白的（有些细节不详，需要认真思考后才明白！），也是使用mocrosoft的barcode控件，打印form，在这总结了我的经验，给大家参考，避免大家走弯路，在这里特别感谢绿竹小龙，也感谢各位的无私奉献，大家如果不明白可163.com联系。注册mocrosoft的barcode控件，网上可以找到并下载；使用新form来显示打印的内容，调整form的大小与打印纸的大小一样添加picture控件，为什么要使用picture控件，是在打印后发现，没有picture控件打印的效果很差，字体看不清；在picture控件上添加barcode的控件，在picture控件上添加barcode的控件，STYLE属性控制条形码的类形，当值为6时为CODE39码（仅包含最简单的数值和字符，零售流通领域常用），当值为7时为CODE128码（字符比较齐全，目前比较通用），结合客户的要求，编程中使用CODE128码添加其他的需要打印的控件，设置好字体等，激活from时将需要打印的内容赋值给对应控件，等待1秒后（因为picture控件的关系，赋值后马上打印经常会出现空白内容）打印form关闭form具体的代码见下：使用条码机打印，条码纸规格是6cm*6cm打印的内容有住院号、住院号+住院次数的条码、姓名、性别、出院日期、入院日期、出院科室所以form的内容是：picture控件、text控件、label控件的背景色设为与条码纸一样的颜色（白色），条码是用barcode控件，其他使用text控件。Form激活时的代码：Private Sub Form_Activate()‘Form激活时的代码Dim ZYH As String ‘定义住院号为文本类型Dim ZyhTemp As String ‘定义临时的住院号为文本类型For i = 0 To Me.LblBL.Count ‘根据标签控件的个数（与text控件的个数相对应，方便赋值）Me.TextBL(i).Text = FrmBLFMPrint.TextBL(i).Text ‘从其他form将需要打印的控件值赋值过来，准备打印Next去掉住院号前面的0,要求不打印住院号前面的0ZYH = Trim(Me.TextBL(1).Text)ZyhTemp=zyhFor i2 = 1 To 10 ‘住院号是10位的，所以从左边逐一检查住院号，将0全部去掉 If Left(ZYH, 1) = 0 Then ‘左边第一位是0，则去掉0 ZYH = Right(ZYH, Len(ZYH) - 1) Else‘当检查到左边第一位非0时，就退出循环，并保存最后的住院号 Me.TextBL(1).Text = ZYH Exit For End IfNext住院次数标准为3位数字，不够位数前面补0Dim ZYCS As StringZYCS = Trim(Me.TextBL(0).Text)For i = 0 To 3 - Len(Trim(Me.TextBL(0).Text)) - 1 ZYCS = 0 ZYCSNextMe.BarCodeCtrl1.Value = zyhtemp zycs ‘给条码控件赋值Sleep 1000 ‘暂停1秒Me.PrintForm ‘打印窗体Unload Me ‘关闭窗体End Sub打印效果：在看了绿竹小龙的博客后，我也尝试的他说的方法，但是条码死活就是不能识别，他的截图能够识别条码，我按照他的方法连截图后不能识别，非常郁闷。最后只能是不是打印窗体的方法来完成任务，缺点是不能在打印时调整打印参数了。在这里附上他的方法：他的一开始的方法是使用windows的API函数，先对条码控件抓图，在贴到picture控件后再打印，也是发现打印出的条码不能识别，最后也是使用打印form方法解决，大家有兴趣可以去看看他的博客/s/blog_66b5659d0101dyps.html。博客原文：