如何编辑条形码
发布网友
发布时间：2022-04-21 23:29
共2个回答
热心网友
时间：2022-05-23 14:57
条形码作为一种机器可识别的图形，它能快速、准确地标识某种产品或商品，在许多数据库应用中起作很重要的作用，如超市收银、车站售票等场合。当某件物品上带有的条形码被条码扫描器正确解读后，将会得到该物品的唯一标识字符串，通过检索数据库我们就可以很容易知道它的一些其它属性并作相应处理。虽然在Internet上能找到许多免费和不免费的条形码打印控件，但是这些控件除了使用不方便外，还有一个最大的缺点：它们的打印输出不能和我们的程序共存在一个打印页面上，比如说在一个过程中，我们先向系统 Printer 中输出一些内容，然后再调用控件的条形码打印方法，最后打印的结果为两页！，如果现在我们要处理一张车票，上面不仅要打印条形码，还要有终点站和票价等信息，那么控件就变得不可用。对程序员来说，可能还是希望能了解条形码打印的原理，本文提出两种打印方法与同行们探讨。
一、直接利用有条形码打印功能的打印机
有许多打印机能够直接打印条形码，但在 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 坐标转换为以缇表示
热心网友
时间：2022-05-23 14:58
付费内容限时免费查看回答您好，百度咨询律师为您服务
商品没有条形码是可以出售的。商品没有条形码是不算违法的,因为条形码只是国家倡导的一种方式,便于记录商品信息。很多商品确实不存在条形码。但是进入稍有点规模的超市或商场都是需要商品条码的,称重的产品和不在超市、商场出售的产品可以没有条形码。
商品的条码是出厂自带的，不能进行修改
商品条码续展程序：
1.系统成员可到当地市、县质量技术监督局标准化处（科）办理续展手续。
2.办理续展所需材料
填写《中国商品条码系统成员续展登记表》并加盖企业公章，一式二份；
续展费用汇款凭证复印件两份；企业法人营业执照(或营业执照)复印件两份；
原《证书》或《续展证书》交回；
3.系统成员的续展资料经当地质量技术监督局初审后，符合条件的资料，由中国物品编码中心当地分中心签署意见后报送到中国物品编码中心审批。
4.中国物品编码中心收到初审合格的续展资料及厂商交纳的费用后，对确实符合规定要求的，编码中心向系统成员核准注册厂商识别代码，完成审批程序。
5.系统成员收到《中国商品条码系统成员证书》（续展），申请结束。
6.《中国商品条码系统成员证书》的有效期限为两年，系统成员对注册的厂商识别代码和相应的商品条码在有效期限内享有专用权。
