不干胶 批量添加 条型码 二维码打印.

boy8199

有网友需要 打印条码的 正好自己也需要所以就做了一个.分享给大家. 请根据需要修改.

这个打印,完全可以使用普通打印机 打印不干胶. 激光的,喷墨的 都可以

开始序号 是 为了 分次打印,比如 上次你只打印了3个,这次从第4个开始打印.

大家还可以 设一下总的 打印个数,超出以后,自动填充第2次,打印到第二页去.

1. Public Function 批量条形码生成(条码打印表 As Worksheet, 条码数值数组() As Variant, 开始序号 As Long, _
   
2.                 条码高度 As Long, 条码宽度 As Long, 每行个数 As Long, _
   
3.                 Optional 单元格左边距 As Long = 1, Optional 单元格上边距 As Long = 1)
   
4. 
   
5.   On Error GoTo errHandler
   
6.    
   
7.     Application.ScreenUpdating = False
   
8. 
   
9.     Dim 序号 As Long
   
10.     Dim 条码左边距 As Long:    Dim 条码上边距 As Long
    
11.     Dim 行号 As Long: Dim 列号 As Long
    
12.    
    
13.     For 序号 = 开始序号 To 开始序号 + UBound(条码数值数组, 1) - 1
    
14.         
    
15.         行号 =   Int((序号 - 1) / 每行个数) + 1
    
16.         列号 =  ((序号 - 1) Mod 每行个数) + 1
    
17. 
    
18.         条码左边距 = 条码打印表.Cells(行号, 列号).Left + 单元格左边距
    
19.         条码上边距 = 条码打印表.Cells(行号, 列号).Top + 单元格上边距
    
20.         
    
21.         If 条码数值数组(序号 - 开始序号 + 1, 1) <> "" Then
    
22.         
    
23.             With 条码打印表.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", Link:=False, _
    
24.                                          DisplayAsIcon:=False, Left:=条码左边距, Top:=条码上边距, _
    
25.                                          Width:=条码宽度, Height:=条码高度)
    
26. 
    
27.                 .Name = "myBarCodeCtr" & 序号  '设置条码控件名称
    
28.                 .Object.Style = 7
    
29.                 .Object.Value = 条码数值数组(序号 - 开始序号 + 1, 1)
    
30.                 .ShapeRange.ScaleHeight 3, msoFalse, msoScaleFromTopLeft
    
31.                 .ShapeRange.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
    
32. 
    
33.             End With
    
34.             
    
35.             
    
36.         End If
    
37.    
    
38.     Next
    
39.     Application.ScreenUpdating = True
    
40.     Exit Function
    
41. errHandler:
    
42.    
    
43.     Application.ScreenUpdating = True
    
44.     MsgBox "添加条码出现错误: " & Err.Number & "-" & Err.Description
    
45.    
    
46. End Function

复制代码

补充内容 (2020-7-6 15:13):
因为 有网友 不是 特别 熟悉 vba 的用法.  我 在后面 又 进行了 补充和升级 让代码 可以 间隔打印,方便 套用标题说明等文字(套打).   其实 原代码也可以套打,就是 需要 在同一个单元格中 调整,有些不便.

ftgli

不错，学习了

boy8199

style = 7 'Code 128

ywzx703

谢谢分享！

boy8199

style=11 是二维码, 看控件9.0的文档,没有这个选项, 我用的是16.0的控件,已支持二维码.

在用到 长一点的 编码时,条形码 识别率 不高,或者无法识别, 必须 达到一定的长度,使条码的线条和空白更宽。
二维码 识别又快又准.

YZC51

boy8199 发表于 2019-7-15 15:16
style=11 是二维码, 看控件9.0的文档,没有这个选项, 我用的是16.0的控件,已支持二维码.

在用到 长一点 ...

谢谢楼主分享代码！
楼主有15.0的控件，或者16.0的控件没，有的话能否分享下，谢谢！

boy8199

YZC51 发表于 2019-7-16 16:13
谢谢楼主分享代码！
楼主有15.0的控件，或者16.0的控件没，有的话能否分享下，谢谢！

office 2016 自带的. 这个需要分享?

YZC51

已经下载。万分感谢楼主！

1全职

大神，这段代码是怎么用的 ，我复制了粘贴在编辑中运行也没反应。 大神这是制作二维码的源代码吗？在网上找了好久都没有找到

boy8199

1全职 发表于 2019-12-29 21:47
大神，这段代码是怎么用的 ，我复制了粘贴在编辑中运行也没反应。 大神这是制作二维码的源代码吗？在网上找 ...

这是个函数，你 调用一下
填上参数

要引用 微软的 barcode 控件，系统应该自带