<![CDATA[杭州江南条码官方技术支持网]]> http://www.008626.com/ PJBlog2 2008-07-28T09:53:21+08:00 <![CDATA[如何选择条码标签打印机]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:53:21+08:00 2008-07-28T09:53:21+08:00
    条形码打印机机器的性能参数，条形码打印机的基本性能：
    1、打印宽度。表示机器所能打印的最大宽度，也代表机器的等级，一般来说，打印宽度有3英寸到8英寸七个选择，打印宽度是选择打印机的决定因素，用户应根据自己的需要选择适合自己的打印机。
    2、打印精度。精度越高的打印机的打印也越清晰，现在最高的打印精度为600dpi，而203dpi或300dpi就可以满足工业日常的需要，用户完全没有必要追求过高的打印精度而投入过多的成本。
    3、打印速度。速度快是条码打印机对于普通打印机的最大优势。它的速度可以达到12英寸/秒。对于同种机器而言，速度越快，精度越低。所以用户必须自己调整机器，以达到速度和精度的完美组合。
    4、接口。一般并口和串口是条码打印机的标准配件，另外用户也可选购闪存卡等外设。
    5、其他。为了让打印机达到用户的要求，各厂家均设计了很多可选配件，用户可根据自己的要求自行选购。

    条码打印机注意事项
    在今天的制造业中，条码打印机的使用越来越广泛。但在选择购买条码标签打印机时，应注意以下几点：
    1、根据自己的实际需要选购条码打印机。
    每种品牌型号的条码打印机都有自己的技术重点和偏重，没有一种条码打印机可以做到面面俱到。所以一定要对打印机有了充分的了解后在购买，不要听信销售商所谓的"最好的机器"、"最全面的打印机"等吹嘘。  
    2、选择可信赖的商家购买。由于条码打印机属于一种工业设备，故此其购买渠道相对于其他商品显得尤其重要。可信赖的商家可以为用户提供完善的使用培训和售后服务。
    3、使用商家或厂家认可的耗材和打印介质。条码打印机的打印头是打印机的关键部件，而打印机的耗材和打印介质是直接影响打印头寿命的关键。也许用户会由于某些碳带和打印介质的价格更便宜而不选择厂家认可的产品，虽然在表面上可以降低打印成本，但由此产生的质量、售后服务和更换打印头等种种事情，往往令用户自尝苦果。
    4、要签保修协议。保修协议是对用户的一种保障。在购买机器的同时，和供应商签署保修协议尤为重要。有了协议的保证，您在修理时间、修理效果和价格上都会得到一定的保证。

    综上所述，条码打印机属于一种工业设备，它一旦出现故障，会直接影响生产进度。所以在选购和使用条码机的时候一定要注意：在您的经济承受范围内，一定要找有实力、信誉好的供应商，不要为了省钱而影响了生产。

]]> http://www.008626.com/default.asp?id=245 <![CDATA[热转印打印中的静电问题]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:49:38+08:00 2008-07-28T09:49:38+08:00 ]]> http://www.008626.com/default.asp?id=244 <![CDATA[条码打印机基本保养步骤]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:46:59+08:00 2008-07-28T09:46:59+08:00     为最主要也是经常性的保养，首先将棉花（或棉球等含有较少棉屑且不粗糙的清洁工具），沾上少量酒精，将印字头打以“单向”擦拭印字头上的加热线，所擦拭的次数以将沾在印字头的碳粉擦拭干净为主，之后反复确认擦拭两次即可(约在列印完一卷纸张后,做一次保养)。  
    2.感应器的清洁
    主要目的为能让机器正常运作去正确的抓取纸张的间距和侦测碳带的安全等，长时间若不作清洁保养，感应器上会沉积散布在空气中的灰尘，久了之后将感应器的光源感受覆盖到一定程度时，机器就会有故障的动作产生，所以请使用不会含任何成分的空气压瓶，其喷拭的多寡以机器所处的工作环境去评判(约在一个月,做一次保养)。
    3.纸张碳带路径和各部关节清洁保养和润滑
    安装纸张和碳带的路径做拭清洁,以让纸张和碳带能运作的更加平顺,在各个可以转动的关节或滚上查看并清洁附着在上面的积物,以润滑油润滑各机件即可(约在三个月,做一次保养)。
碳带的回收轴和安装轴保养后还要将每个”轴的力做重新的调整，以防止打皱等情形发生，所以不建议客户自行做清洁保养(约在三个月,做一次保养)

      如何延续条码机的寿命?
      1. 正确的操作：使用者的操作是否正确,对条码使用寿命的长短有很大的影响,如温度 压力等机器设定及应用。
    2. 落实的保养：是否依使用情况落实一般保养，且保养动作是否正确（包含使用保养的器具和方法），以及定期的专业保养调校是否完整，上述几点均影响条码机使用寿命。
    3. 环境的因素：机器在不使用时请关闭电源，能让机器尽量保持在低温，在开关电源时最好能相隔5~10分钟，尽量选择摆放在较干净的环境。若能符合以上条件，机器寿命的延续至少在5%以上

]]> http://www.008626.com/default.asp?id=243 <![CDATA[条码打印机首次安装使用的步骤是什么?]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:42:57+08:00 2008-07-28T09:42:57+08:00 开箱前请勿必确定下列事项
1. 本打印机为了环保特别使用回收纸箱包装,当检视运送纸箱发现任何暇疵请直接向运送者报告
2. 内含之打印机机正面向上
3. 先将填充物取出，再将打印机小心移出
4. 请将打印机置于一平坦坚固的表面，并检查是否有因运送造成的任何损坏
5. 注意任何会导致损坏之外物
6. 对照装箱清单检查物件是否齐全

二.硬件安装
1. 请参考操作手册安装碳带
2. 请参操作手册安装纸卷
3. 请参考操作手册连接电源线及数据传输线

三.软件安装
1. 插入随机光盘，参考驱动程式安装，安装驱动程序
2. 安装您选用的标签编辑软件，请注意，在安装标签编辑软件时请确定支持此打印机
3. 打印机面板设置请参考文档面板操作
4. PC端的软件使用请参考该软件的使用手册，安装完毕，您可以开机使用此打印机

四.WINDOWS驱动程式安装
安装前,注意下列事项
1. 核对驱动程式的内容
2. 备份此驱动程式
3. 阅读此驱动程式的README.TXT文档(如CD中windowsdriver/dr200readme.txt)
4. 进入WINDOWS
5. 插入CD,若CD自动运行,请退出自动运行界面
6. 在系统是WIN95/98/NT4.0/2000下,安装步骤:
7. 单击"开始"；
8. 选择"设置"，然后"打印机”
9. 双击"新增打印机"，出现对话框，单击"下一步"键
10. 选择"网络打印机"或"本地打印机"，单击"下一步"键
11. 选择从"磁盘安装"，输入驱动文件的完整路径，如f:\windowsdriver\dr200\win2000

五.重要安全及其它注意事项
1. 请仔细阅读本安全说明及注意事项
2. 本打印机通过FCC, part 15 之 class A, 使用时会干挠收音机、电视机等通讯产品，所以务请移开这些产品以避免受干挠
3. 请将将打印机放置于一水平、坚固的的桌面或平面上
4. 远离潮湿、有水、高温的地方
5. 请参考打印机后面板之规格标签，以确定您所使用的电源规格是正确,用户请勿必注意：确保 电源电压切换开关（110V/230V）与您所在地区的供电电压相符合，否则会导致机器烧毁 或不能正常运转.
6. 当机器已接上电源时，请勿打开机箱
7. 严禁非专业人员拆装打印机
8. 在清洁打印机之前，请勿必切断打印机的电源,严禁使用液体或喷雾状清洁剂清洁打印机机,请用软布或棉花轻轻擦拭打印机
9. 严禁在室温40摄氏以上使用本打印机，否则会损坏打印机
10. 打印机周围的散热孔应避免被堵塞，影响散热性
11. 打印机的电源线应放在适当安全的地方，电源线标识所能承载的电压与电流应大于打印机所标识的电压与电流
12. 严禁任何液体滴入打印机的散热孔内，以免引起火灾或短路
13. 若打印机不经常使用，应断开打印机与主机的连线及电源线，以免瞬时过载电压损坏打印机

]]> http://www.008626.com/default.asp?id=242 <![CDATA[商品条码印刷应注意的几个质量问题]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:38:47+08:00 2008-07-28T09:38:47+08:00     在商品条码应用系统中，商品及商品价格的差异是靠不同的商品编码来识别的。假如把两种不同的商品用同一编码标识，计算机系统就把它视为同一种商品，从而造成扫描结算上的错误及管理上的混乱。
    二、放大系数  
    放大系数实际上是指商品条码的大小，商品条码太大则会占用过多的包装图案或印刷文字的空间，也不实用；太小则容易造成印刷、识读困难。因此，条码的尺寸大小要适当，通过根据商品外包装的大小及允许印刷的面积，其商品外包装上的商品条码所选择的放大系数应在0.8-2.0范围内，一般放大系数应为0.9-1.2，对于0.8-0.9的条码符号，质量控制的难度比较大，应慎重选择使用。  
    三、条空颜色搭配  
    条空颜色搭配是指条码中条的颜色与衬底颜色所产生的反差是否符合标准。商品条码是用专用识读设备依靠分辨条空的亮暗和宽窄来识别的，因此要求条与空的颜色反差越大越好。一般来说，白色作底，黑色作条是最理想最安全的颜色搭配。由于颜色本身可以有多种变化，所以在选择条空颜色搭配时应掌握一条原则：空色尽量亮，颜色中尽量没有兰、黑的成分，条色尽量深，颜色中应含有兰或黑的成分。  
    四、商品条码的印刷位置  
    商品条码的印刷位置应以条码符号不变形且便于识读为原则。商品包装上的商品条码放置位置变化越大，收款员寻找条码并通过扫描器进行结算的速度就越慢，零售效率就越低，因此，商品条码的印刷位置应尽可能标准化。为便于扫描结算，通常应将商品条码印刷在外包装的“自然”底面上。  
    五、商品条码的截短  
    在任何程度上对商品条码符号高度的截短，都将会影响对条码的扫描识读，因此，商品条码符号的高度原则上严禁截短。  
    六、左右空白区  
    商品条码符号左右空白区的尺寸要够留，以便于扫描设备的正确识读。应保证在商品条码的左右空白区域内没有字符、图形、穿孔、划痕等，同时商品条码的印刷位置还应远离商品外包装的边缘，以满足对条码空白区的要求。  
    七、瓦楞纸版上的条码印刷  
    直接在瓦楞纸上印刷条码应注意尺寸精度问题。由于印刷时受力不均，导致条码弯曲变形。通常采用在其他载体上印刷条码，然后再将其贴在瓦楞纸包装上的方法解决这一问题。


]]> http://www.008626.com/default.asp?id=241 <![CDATA[条码标签的编码规则与码制区分]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:35:25+08:00 2008-07-28T09:35:25+08:00
    永久性： 产品代码一经分配，就不再更改，并且是终身的。当此种产品不再生产时，其对应的产品代码只能搁置起来，不得重复起用再分配给其它的商品。无含义：为了保证代码有足够的容量以适应产品频繁的更新换代的需要，最好采用无含义的顺序码。 条形码的码制区别 UPC:(统一产品代码）只能表示数字 有A、B、C、D、E四个版本 版本 A - 12 位数字 版本 E - 7 位数字 最后一位为校验位 大小是宽1.5" 高1 " ，而且背景要与清晰 主要使用于美国和加W拿大地区，用于工业、医药、仓库等部门 当UPC 作为十二位进行解码时，

    定义如下：

第1位 = 数字标识 (已经由UCC（统一代码委员会）所建立).

第2-6位 = 生产厂家的标识号(包括第一位)

第7-11 = 唯一的厂家产品代码

第12位 = 校验位(used for error detection)

Code 39 : 能表示字母、数字和其它一些符号共43个字符：A -Z,0 - 9,-.$/+%,pace 条码的长度是可变化的 通常用“*”号作为起始、终止符 校验码不用 代码密度介于3 - 9.4个字符/每英寸 空白区是窄条的10倍 用于工业、图书、以及票证自动化管理上

Code 128: 表示高密度数据, 字符串 字符串可变长 符号内含校验码 有三种不同版本: A, B, and C 可用128个字符分别在 A, B, or C 三个字符串集合中 用于工业、仓库、零售批发

Interleaved 2-of-5 (I2 of 5): 只能表示数字0 -9 可变长度 连续性条码，所有条与空都表示代码，第一个数字由条开始，第二个数字由空组成 空白区比窄条宽10倍 应用于商品批发、仓库、机场、生产/包装识别、工业中 条码的识读率高，可适用于固定扫描器可靠扫描 在所有一维条码中的密度最高

Codabar（库德巴条码）: 可表示数字0 - 9,字符$、+、 -、还有只能用作起始/终止符的a, b, c d四个字符 可变长度 没有校验位 应用于物料管理、图书馆、血站和当前的机场包裹发送中 空白区比窄条宽10倍 非连续性条码，每个字符表示为4条3空

PDF417 （二维码）: 多行组成的条码 不需要连接一个数据库，本身可存储大量数据 应用于：医院、驾驶证、物料管理、货物运输 当条码受一定破坏时，错误纠正能使条码能正确解码

PDF417, 是Symbol科技公司于1990研制产品。它是一个多行、连续性、可变长、包含大量数据的符号标识。每个条码有3 - 90行，每一行有一个起始部分、数据部分、终止部分。它的字符集包括所有128个字符，最大数据含量是1850个字符


]]> http://www.008626.com/default.asp?id=240 <![CDATA[不干胶材料的印刷和加工特性]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:32:18+08:00 2008-07-28T09:32:18+08:00 达些指标决定了不干胶材料吸墨的均匀性，还决定着同批标签印品的色差。面材的涂层强度决定了印刷时是否会产生大量纸粉，也是决定印刷质量的重要指标。
②底纸、面材厚度的均匀性和强度指示
这些指标不仅关系到印刷性能，还是决定模切均匀性和排废时速度与纸边断裂的重要指标。如果这些指标太低，标签机就无法高速生产。
③材料的平整度或复卷张力的均匀性
无论是单张印刷还是卷筒印刷，材料的平整度都决定了印刷时是否能正确输纸、运行和套准、收纸。对于卷筒材料，复卷张力会对卷筒材料端面的平整度、是否出现渗胶、能否正确套准起重要的作用。
④粘合剂、硅油涂布的均匀性和正确的涂布量
这些指标直按影响标签同底纸间的剥离力(离型力)，而剥离力的大小又直接影响模切排废和机器的速度，剥离力还决定了标签的出标状况，即应用情况。此外，涂胶量的大小还会影响材料端面的渗胶状况。所以，购买不干胶材料时要认真检验，选择那些涂胶量和涂硅量合适的材料。

]]> http://www.008626.com/default.asp?id=239 <![CDATA[条码的检测]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:25:49+08:00 2008-07-28T09:25:49+08:00 　　条码是一种数据载体，它在信息传输过程中起着重要作用， 如果条码出问题，物品信息的通讯将被中断。因此必须对条码质量进行有效控制，确保条码符号在供应链上能够被正确识读，而条码检测时实现此目标的一个有效工具。 条码检测的目标就是要核查条码符号是否能起到其应有的作用，它的主要任务为：
　　•  使得符号印刷者对产品进行检查，以便根据检查的结果调整和控制生产过程。
　　•  预测条码的扫描识读性能。通过条码检测，我们可以对条码符号满足符号标准的程度进行评价，而这种程度和条码符号的识读性能有着紧密的联系。

2、检验方法
　　条码检验在克服传统检测方法缺陷的基础上，目前已发展采用条码综合质量分级法，即“反射率曲线分析法”。综合分级方法根据扫描反射率曲线和参考译码算法进行分析、判断，把外观上的缺陷转换成缺陷（Defects）、边缘判定等参数。检验结果给出的是条码符号的等级，表明条码符号的适用场合。
　2.1 扫描反射率曲线
　　扫描反射率曲线是用扫描器对一个条码符号扫描时，扫描器探测到条码符号的反射率，反射率值与扫描位置有关。若扫描线是垂直于条的直线，则反射率是以扫描起点为端点的、横过整个条码符号的距离（或线性位置）的函数。
　2.2 相关术语和定义
　　• 最低反射率(R min)： 扫描反射率曲线上最低的反射率值。

　　• 最高反射率(R max )： 扫描反射率曲线上最高的反射率值。
　　• 符号反差(SC)： 扫描反射率曲线的最高反射率与最低反射率之差。 。  

　　• 总阈值(GT—Global Threshold)： 用以在扫描反射率曲线上区分条、空的一个标准反射率值。扫描反射率曲线在总阈值线上方所包的那些区域，即空；在总阈值线下方所包的那些区域，即条。 或 。  

　　• 条反射率(R b)： 扫描反射率曲线上某条的最低反射率值。  

　　• 空反射率(R s)： 扫描反射率曲线上某空的最高反射率值。  

　　• 单元(element)： 泛指条码符号中的条或空。  

　　• 单元边缘 (element edge)： 扫描反射率曲线上过毗邻单元（包括空白区）的空反射率（ R s ）和条反射率（R b ）中间值（即 ）的点的位置。  

　　• 边缘判定(edge determination)： 按单元边缘的定义判定扫描反射率曲线上的单元边缘。如果两毗邻单元之间有多于一个代表单元边缘的点存在，或有边缘丢失，则该扫描反射率曲线为不合格。空白区和字符间隔视为空。  
　　• 边缘反差(EC)： 毗邻单元（包括空白区）的空反射率和条反射率之差。 。  

　　• 最小边缘反差(EC min)： 扫描反射率曲线上所有边缘反差中的最小值。  
　　• 调制度(MOD)： 最小边缘反差(EC min )与符号反差(SC)的比。 。

　　• 单元反射率不均匀性(ERN)： 某一单元中最高反射率与最低反射率的差。
　　• 缺陷(defects)： 单元反射率最大不均匀性（ ERN max ）与符号反差（SC）的比。 。

　　• 可译码性(decodability)： 与适当的参考译码算法相关的条码符号印制精度的量度。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　2.3  条码符号质量评定
　　(1) 条码符号质量分级过程
　　一条扫描反射率曲线的所有判定和参数（包括边缘判定、译码、反射率参数、可译码性）的评定等级中最低的那一级就是该曲线的等级。
　　对一个条码符号检验所得的 10条扫描反射率曲线的数字等级的算术平均值即该条码符号印制质量的评定等级。条码符号的数字等级可以转换成字母等级。
　　(2) 分级的意义
　　条码符号的等级表明了其印制质量及适用场合。 A级条码符号通常能被很好地识读，适用于各种场合。B级条码符号在识读过程中的表现不如A级，其中一些符号可能需要重复扫描。C级条码符号可能需要更多次的重复扫描，通常要使用能重复扫描并具有特殊的多条扫描线的设备才能获得好的识读效果。D级条码符号可能无法被某些识读设备识读，要获得好的识读效果，要使用能重复扫描并具有特殊的多条扫描线的设备。F级条码符号是不合格品，不能使用，参见下图。

3、检测设备
　　条码检测常用设备的测量装置应该符合条码检测 GB-T 14258-1993检测方法的要求， 例如测量波长、光路、测量孔径。检测仪有很多类型，根据应用领域的不同，可分为通用设备和专用设备。 通用设备包括密度计、工具显微镜、测厚仪和显微镜。专用设备有便携式条码检测仪和固定式条码检测仪。

]]> http://www.008626.com/default.asp?id=238 <![CDATA[VB应用程序中打印条形码的两种方法]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:22:26+08:00 2008-07-28T09:22:26+08:00
一、直接利用有条形码打印功能的打印机

　　有许多打印机能够直接打印条形码，但在 VB 中，我们在ＤＯＳ时代熟悉的LPRINT语句已经不能再使用了，打印操作被Windows的Spool系统完全接管，输出是以“页”为单位，所有的打印输出都被Windows转换为图形发送给打印驱动程序。而要使打印机打印条形码就必须将对应的ESC序列直接发送给它，因此我们就要想办法避开Windows的Spool系统，也就是说再程序中不能使用Printer对象和Printers集合处理打印输出，在VB中要将ESC指令直接发送给打印机至少有三种方法，前两种方法是调用Windows API 函数：Escape()和SpoolFile()，第三种是最容易的方法：打开打印机端口进行二进制存取，我们主要考虑这种方法。

　　即使在Windows时代，”LPT1:”和”PRN”仍然是可用的，下面我们先作一个试验：打开一个DOS窗口，在提示符下输入COPY CON LPT1:回车，然后随便输入一些字符，最后按F6键，打印机就开始工作了，它将打印出你输入的那些字符！下面的代码演示了直接将指令和字符发送给打印机：

Private Sub Command1_Click()

　　Dim strOut As String

　　StrOut = “这是直接发送到打印机端口的字符串”

　　‘ 打开打印机端口，其中的”LPT1:”可能需要根据你的打印机设置而改变

　　Open “LPT1:” For Binary Access Write As #1

　　‘ 发送给打印机，注意语句的最后一个参数必须是变量

　　　　Put #1, ,strOut

　　　　‘ 关闭打印机端口

　　　　Close #1

End Sub

　　各种打印机打印条形码的指令可能不同，比如将上面的变量 strOut赋值为：

　　strOut = Chr(28) & “P” & Chr(5) & Chr(2) & Chr(3) & Chr(3) & Chr(6) & “012345”

　　将在 AR2400 打印机上打印出内容为”012345”的 CODE39 格式的条形码。具体的打印控制指令请参考打印机手册。

　　用这种方法的缺点：一是过份依赖打印机本身，而有条形码打印功能的打印机通常要比普通打印机昂贵，这会使构造应用系统不够经济；二是所有的打印输出都必须你自己处理，比如打印定位就很浪费时间。

二、利用画图方式输出到普通打印机

　　条形码的编码规则不外乎是通过线条和线条间间隙的宽窄不同来表示二进制的１和０，只要我们了解了条形码的编码规则，完全可以用画图的方式在普通打印机上得到可以接受的效果。下面我们就使用最普遍的CODE39码进行讨论。

　　CODE39码的编码规则是：

１、 每五条线表示一个字符；

２、 粗线表示１，细线表示０；

３、 线条间的间隙宽的表示１，窄的表示０；

４、 五条线加上它们之间的四条间隙就是九位二进制编码，而且这九位中必定有三位是1，所以称为39码；

５、 条形码的首尾各一个＊标识开始和结束

　　在我们的程序中，给常用的字符都进行编码，解读时先取线条粗细，再取间隙宽窄，如：


　　上图中的字符＊就可以解读为 001101000，字符３解读为 110000100

　　下面就是我们给出的子过程：

注释： 将字符串 strBarCode 对应的条形码输出到缺省打印机

Private Sub PrintBarCode( _

　　ByVal strBarCode As String, _

　　Optional ByVal intXPos As Integer = 0, _

　　Optional ByVal intYPos As Integer = 0, _

　　Optional ByVal intPrintHeight As Integer = 10, _

　　Optional ByVal bolPrintText As Boolean = True _

)

注释： 参数说明:

注释： strBarCode　　　　- 要打印的条形码字符串

注释： intXPos, intYPos - 打印条形码的左上角坐标(缺省为(0,0)，坐标刻度为:毫米)

注释： intHeight　　　　 - 打印高度(缺省为一厘米,坐标刻度为:毫米)

注释： bolPrintText　　 - 是否打印人工识别字符(缺省为true)


注释： "0"-"9","A-Z","-","%","$"和"*" 的条码编码格式,总共 40 个字符

Static strBarTable(39) As String

注释： 初始化条码编码格式表

　　strBarTable(0) = "001100100"　　 注释： 0

　　strBarTable(1) = "100010100"　　 注释： 1

　　strBarTable(2) = "010010100"　　 注释： 2

　　strBarTable(3) = "110000100"　　 注释： 3

　　strBarTable(4) = "001010100"　　 注释： 4

　　strBarTable(5) = "101000100"　　 注释： 5

　　strBarTable(6) = "011000100"　　 注释： 6

　　strBarTable(7) = "000110100"　　 注释： 7

　　strBarTable(8) = "100100100"　　 注释： 8

　　strBarTable(9) = "010100100"　　 注释： 9

　　strBarTable(10) = "100010010"　　注释： A

　　strBarTable(11) = "010010010"　　注释： B

　　strBarTable(12) = "110000010"　　注释： C

　　strBarTable(13) = "001010010"　　注释： D

　　strBarTable(14) = "101000010"　　注释： E

　　strBarTable(15) = "011000010"　　注释： F

　　strBarTable(16) = "000110010"　　注释： G

　　strBarTable(17) = "100100010"　　注释： H

　　strBarTable(18) = "010100010"　　注释： I

　　strBarTable(19) = "001100010"　　注释： J

　　strBarTable(20) = "100010001"　　注释： K

　　strBarTable(21) = "010010001"　　注释： L

　　strBarTable(22) = "110000001"　　注释： M

　　strBarTable(23) = "001010001"　　注释： N

　　strBarTable(24) = "101000001"　　注释： O

　　strBarTable(25) = "011000001"　　注释： P

　　strBarTable(26) = "000110001"　　注释： Q

　　strBarTable(27) = "100100001"　　注释： R

　　strBarTable(28) = "010100001"　　注释： S

　　strBarTable(29) = "001100001"　　注释： T

　　strBarTable(30) = "100011000"　　注释： U

　　strBarTable(31) = "010011000"　　注释： V

　　strBarTable(32) = "110001000"　　注释： W

　　strBarTable(33) = "001011000"　　注释： X

　　strBarTable(34) = "101001000"　　注释： Y

　　strBarTable(35) = "011001000"　　注释： Z

　　strBarTable(36) = "000111000"　　注释： -

　　strBarTable(37) = "100101000"　　注释： %

　　strBarTable(38) = "010101000"　　注释： $

　　strBarTable(39) = "001101000"　　注释： *

　　If strBarCode = "" Then Exit Sub 注释： 不打印空串

　　注释： 保存打印机 ScaleMode

　　Dim intOldScaleMode As ScaleModeConstants

　　intOldScaleMode = Printer.ScaleMode

　　注释： 保存打印机 DrawWidth

　　Dim intOldDrawWidth As Integer

　　intOldDrawWidth = Printer.DrawWidth

　　注释： 保存打印机 Font

　　Dim fntOldFont As StdFont

　　Set fntOldFont = Printer.Font

　　Printer.ScaleMode = vbTwips 注释： 设置打印用的坐标刻度为缇(twip=1)

　　Printer.DrawWidth = 1　　 注释： 线宽为 1

　　Printer.FontName = "宋体" 注释： 打印在条码下方字符的字体和大小

　　Printer.FontSize = 10

　　Dim strBC As String　　　　 注释： 要打印的条码字符串

　　strBC = Ucase(strBarCode)

　　注释： 将以毫米表示的 X 坐标转换为以缇表示

　　Dim x As Integer

　　x = Printer.ScaleX(intXPos, vbMillimeters, vbTwips)

　　注释： 将以毫米表示的 Y 坐标转换为以缇表示

　　Dim y As Integer

　　y = Printer.ScaleY(intYPos, vbMillimeters, vbTwips)

　　注释： 将以毫米表示的高度转换为以缇表示

　　Dim intHeight As Integer

　　intHeight = Printer.ScaleY(intPrintHeight, vbMillimeters, vbTwips)


　　注释： 是否在条形码下方打印人工识别字符

　　If bolPrintText = True Then

　　　　注释： 条码打印高度要减去下面的字符显示高度

　　　　intHeight = intHeight - Printer.TextHeight(strBC)

　　End If

　　Const intWidthCU As Integer = 30 注释： 粗线和宽间隙宽度

　　Const intWidthXI As Integer = 10 注释： 细线和窄间隙宽度

　　Dim intIndex As Integer　　　　　　注释： 当前处理的字符串索引

　　Dim i As Integer, j As Integer, k As Integer　　注释： 循环控制变量


　　注释： 添加起始字符

　　If Left(strBC, 1) <> "*" Then

　　　　strBC = "*" & strBC

　　End If

　　注释： 添加结束字符

　　If Right(strBC, 1) <> "*" Then

　　　　strBC = strBC & "*"

　　End If

　　

　　注释： 循环处理每个要显示的条码字符

　　For i = 1 To Len(strBC)

　　　　注释： 确定当前字符在 strBarTable 中的索引

　　　　Select Case Mid(strBC, i, 1)

　　　　Case "*"

　　　　　　intIndex = 39

　　　　Case "$"

　　　　　　intIndex = 38

　　　　Case "%"

　　　　　　intIndex = 37

　　　　Case "-"

　　　　　　intIndex = 36

　　　　Case "0" To "9"

　　　　　　intIndex = CInt(Mid(strBC, i, 1))

　　　　Case "A" To "Z"

　　　　　　intIndex = Asc(Mid(strBC, i, 1)) - Asc("A") + 10

　　　　Case Else

　　　　　　MsgBox "要打印的条形码字符串中包含无效字符！当前版本只支持字符 注释：0注释：-注释：9注释：,注释：A注释：-注释：Z注释：,注释：-注释：,注释：%注释：,注释：$注释：和注释：*注释："

　　　　End Select

　　　　注释： 是否在条形码下方打印人工识别字符

　　　　If bolPrintText = True Then

　　　　　　Printer.CurrentX = x

　　　　　　Printer.CurrentY = y + intHeight

　　　　　　Printer.Print Mid(strBC, i, 1)

　　　　End If

　　　　For j = 1 To 5

　　　　　　注释： 画细线

　　　　　　If Mid(strBarTable(intIndex), j, 1) = "0" Then

　　　　　　　　For k = 0 To intWidthXI - 1

　　　　　　　　　　Printer.Line (x + k, y)-Step(0, intHeight)

　　　　　　　　Next k

　　　　　　　　x = x + intWidthXI

　　　　　　注释： 画宽线

　　　　　　Else

　　　　　　　　For k = 0 To intWidthCU - 1

　　　　　　　　　　Printer.Line (x + k, y)-Step(0, intHeight)

　　　　　　　　Next k

　　　　　　　　x = x + intWidthCU

　　　　　　End If

　　　　　　注释： 每个字符条码之间为窄间隙

　　　　　　If j = 5 Then

　　　　　　　　x = x + intWidthXI * 3

　　　　　　　　Exit For

　　　　　　End If

　　　　　　注释： 窄间隙

　　　　　　If Mid(strBarTable(intIndex), j + 5, 1) = "0" Then

　　　　　　　　x = x + intWidthXI * 3

　　　　　　注释： 宽间隙

　　　　　　Else

　　　　　　　　x = x + intWidthCU * 2

　　　　　　End If

　　　　Next j

　　Next i

　　注释： 恢复打印机 ScaleMode

　　Printer.ScaleMode = intOldScaleMode

　　注释： 恢复打印机 DrawWidth

　　Printer.DrawWidth = intOldDrawWidth

　　注释： 恢复打印机 Font

　　Set Printer.Font = fntOldFont

End Sub
　　最理想的情况是将它做成一个控件，在控件中提供一个打印方法，该方法实现与上

　　那个过程大致相同，只是不能在控件中直接使用VB的Printer对象，否则VB会将你在控件中的打印输出处理为一个单独的页面，而是应该将Printer.hDc传给它，通过调用那些需要指定 HDC 的Windows API函数实现与容器的打印输出在一个页面上，比如我们可以这样定义这个控件的打印方法：

注释： PrintIt 方法将对应的条形码输出到缺省打印机

Public Sub PrintIt(ByVal PrintDC As Long, _

　　 Optional ByVal intXPos As Integer = 0, _

　　Optional ByVal intYPos As Integer = 0, _

　　 Optional ByVal intPrintHeight As Integer = 10)

　　既然不能使用Printer对象，那么画线和输出文字也不能使用Printer对象的Line和Print方法，在我们的程序中至少要申明以下三个Windows API函数：

‘ 移动画笔的位置

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long

‘ 从画笔的当前位置到（x,y）画一条线

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

‘ 在（x,y）处输出一个字符串

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

‘ MoveToEx() 函数需要的参数

Private Type POINTAPI

　　xp As Long

　　yp As Long

End Type

Dim papi As POINTAPI

画线操作为(原来的Printer.Line函数)：

MoveToEx PrintDC, x + k, y, papi

LineTo PrintDC, x + k, y + intHeight + 1

打印字符为(原来的Printer.Print函数)：

TextOut PrintDC, x, y + intHeight, Mid(strBC, i + 1, 1), 1

]]> http://www.008626.com/default.asp?id=237 <![CDATA[条码标签制作流程]]> 佚名 http://www.008626.com/ luoshuibian@vip.sina.com 2008-07-28T09:12:52+08:00 2008-07-28T09:12:52+08:00 标签制作流程：
客户提出要求 ——〉设计标签材质选择 ——〉碳带选择 ——〉标签规格设计(尺寸,形状) ——〉标签内容编辑 ——〉条码生成——〉标签打印——〉标签检测——〉标签使用(贴标机)
标签纸分类： 1、 不干胶卷筒标签纸； 2、 A4规格不干胶打印纸 ; 碳带： 各种类型

不干胶卷筒标签纸

适用打印机：专用的条码打印机
规格： 规格尺寸按用户要求生产。

普通激光打印机打印不干胶标签

适用打印机：普通激光打印机。
规格： 规格尺寸按用户要求生产。




]]> http://www.008626.com/default.asp?id=236