EAN-14条码的批量制作

   今天收到一个客户的要求,想要批量生成EAN-14条码类型,但是客户现有的数据是不含校验码,他需要批量生成含校验码的完整条码并且要求只显示14位数据,如图:

             

 

     EAN-14是基于EAN-128的编码规则,应用标识符为01 后接14位长度的数据,EAN-14是根据前面的13位数据自动生成的最后一位校验码,标准的EAN-14条码扫描出来的数据是16位的长度。其体现形式有2种,只显示14位数据和显示(01+14位数据。无论怎么做,标准的EAN-14条码扫描出来的数据是16位的长度,如何满足客户的要求呢?

    有2种方式:

  1)通过修改软件里的条码批量编制工具——导入的程序来实现。

  2)使用软件画图工具条的填充矩形来遮盖前面的(01)。

    下面使用Labelmx通用条码标签设计系统为大家讲解该方式的操作方法:

           1.打开labelmx软件,新建标签,在左侧画图工具条选择一维码在标签上画一维码,点击条码在右侧属性栏选择条码类型为“EAN-14字符输入“2009132456417”校验码会自动出现为“4,点击“完成”按钮,如图:

     

     2.选择左侧画图工具条填充矩形,在标识符01处画填充矩形,在右侧属性栏调整颜色为白色,如图:

        

      

      3.选择左侧画工具条画数据源,在标签上画数据源,选择连接方式为Excel文件,如图:

           

         

         4.点击连接设置,弹出连接数据库窗口,选择Excel文件存储目录,如图:

                   

 

        5.点击“确定”按钮,数据源变为绿色表示连接成功,然后连接相应的字段,如图:

          

 

         6.点击打印——打印预览,效果如图:

                       

 

    Labelmx通用条码标签设计系统是一款专业的条码打印软件,支持一维码和二维码等40多种条码类型,可以输出A级条码质量的专业条码打印软件,支持目前市场上所有的打印机,Labelmx以客户为中心的宗旨,可以根据客户的要求修改软件来实现客户的需求。

    以上设计由“Labelmx通用条码标签设计系统”制作完成。

 

转载于:https://my.oschina.net/hengyou/blog/132690

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBA是一种用于Microsoft Office应用程序的编程语言,可以用于处理和操作Excel、Access、Word等文档和数据。而EAN-13条码(European Article Number 13)是一种全球通用的商品条码编码系统,用于唯一标识和跟踪商品。 在VBA中,可以使用一些内置的函数和方法来处理和生成EAN-13条码。下面是一个简单的示例: 首先,我们需要在Excel中创建一个单元格,用于输入要生成条码的商品编号。然后,在VBA代码中,可以使用如下函数来生成EAN-13条码: ```vba Function GenerateEAN13Barcode(ByVal productCode As String) As String Dim checkDigit As Integer Dim encodedDigits As String ' 检查输入的商品编号是否为12位数字 If Not IsNumeric(productCode) Or Len(productCode) <> 12 Then GenerateEAN13Barcode = "输入的商品编号无效!" Exit Function End If ' 计算校验位 checkDigit = CalculateEAN13CheckDigit(productCode) ' 编码商品编号和校验位 encodedDigits = productCode & checkDigit GenerateEAN13Barcode = encodedDigits End Function Function CalculateEAN13CheckDigit(ByVal code As String) As Integer Dim i As Integer Dim digit As Integer Dim total As Integer ' 遍历商品编号的每一位数字 For i = 1 To 12 digit = Mid(code, i, 1) ' 偶数位数字乘以3,奇数位数字乘以1 If i Mod 2 = 0 Then total = total + digit * 3 Else total = total + digit End If Next i ' 计算校验位 CalculateEAN13CheckDigit = (10 - total Mod 10) Mod 10 End Function ``` 以上代码中,`GenerateEAN13Barcode`函数会接收一个12位的商品编号,并根据校验位计算生成13位的EAN-13条码。`CalculateEAN13CheckDigit`函数用于计算校验位。 在Excel的单元格中,可以使用VBA的`=GenerateEAN13Barcode(A1)`函数来生成EAN-13条码,其中A1为输入的商品编号单元格。执行该函数后,会在相应的单元格中显示生成EAN-13条码。 通过以上的VBA代码,我们可以在Excel中使用VBA函数来生成EAN-13条码,方便实现商品条码生成和处理。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值