EXCEL服务器制作条形码、批量打印条形码

zhangmengyuan66

在EXCEL服务器中制作条形码十分方便,可以调用系统内置的"MicrosoftBarCode 控件14.0"来实现,配合激光打印机和专业纸张,可以制作出与专业条形码机与软件相媲美的效果。

工具：E立方管理平台、Excel2010

第一步: 新建模板、设置表样、定义数据项

在Sheet1也设置一个明细表，定义数据项。资产编码通过列表窗体数据规范选择，资产总数通过COUNTA()计算

Sheet2页 设置生成条形码界面表样

第二步：设置条形码控件

EXCEL2010,如果"开发工具"选项卡没有显示出来

点击"文件"选项卡下的"选项",弹出"EXCEL选项"对话框,点击"自定义功能区"选项卡,勾选"主选项卡"下的"开发工具",点击"确定"按钮,退出对话框

"开发工具"选项卡,被显示出来了

第三步:调出"Microsoft BarCode控件14.0"

点击"开发工具"选项卡,"插入"-"其他控件"

"其他控件"对话框内找到"Microsoft BarCode控件14.0"点击一下,并按"确定"按钮

如果其他控件里没有Microsoft BarCode控件14.0 ,下载MSBCODE9.OCX复制到路径C:\Windows\System32，点击注册自定义控件。

此时鼠标变为"+"形状,根据实际需要,拖动鼠标画一B2单元格大小的矩形

放开鼠标自动生成了一个条形码

第四步:对条形码进行相关设置

右键点击"条形码"对象,弹出快捷菜单中选择"Microsoft BarCode控件14.0对象"并单击"属性"命令项

弹出"MicrosoftBarCode控件14.0对象"对话框,按照实际需求选择一种样式,本例选择第7种样式,并按"确定"按钮,此时条形码发生了变化

常用条码样式有code39码、code128；code39码条形码字符开头结尾需要加*，code39码相对复杂；code128码是企业内部管理系统最为广泛使用的条码码制。

下一步按照我们给的条形码字符(14806504AA0128)来生成条形码，图鼠标右击条形码对象,弹出快捷菜单,点击"属性"命令项

弹出"属性"设置对话框,在"LinkedCell"处输入A2,"Value"字段处自动填写上了A2单元格的内容"14806504AA0128",点击右上角X,关闭设置,并退出

点击"开发工具"选项卡,下的"设计模式"来结束设计,这一步操作是关键,切记!

按照指定的条形码字符,自动生成了条形码

设置批量打印条形码

功能：点击“打印”按钮，批量打印条形码

说明：按资产总数循环，根据资产编码生成条形码，批量打印。

Sheet1界面：

第一步：Sheet1界面 添加“打印”按钮

更改按钮名称

第二步：设置批量打印代码

右键-打印按钮-查看代码

第三步：设置打印区域、打印机。

在sheet2页 根据标签纸设置打印区域；设置打印机首选项。

注：

1.条码长度不能设置太短，让条码的粗线条、细线条明显区分开,否则影响扫描准确性。

2. 注册控件:按操作系统下载32位或者64位MSBCODE9.OCX 文件：

XP、Win732位系统操作：

将32位 MSBCODE9.OCX文件，复制到路径C:\WINDOWS\system32;开始—运行—输入— regsvr32 MSBCODE9.OCX，—弹出注册成功就OK。

Win7 64位系统操作：

将64位 MSBCODE9.OCX文件，拷贝到C:\Windows\SysWOW64;开始—运行—输入regsvr32.exe  C:\Windows\SysWOW64\MSBCODE9.OCX 回车—弹出注册成功就OK。

3.批量打印代码：

Private SubCommandButton1_Click()

Dim obj As Object

Dim i As Integer

           '获取E立方管理平台 的编程接口

Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

    For i = 1 To Sheet1.Range("资产总数")

'========================'sheet2页打印

    Sheet2.Range("资产编码").Value = Cells(Range("资产编码标题").Row+ I, Range("资产编码标题").Column)

    Sheet2.BarCodeCtrl1.Height = 32.75

    Sheet2.BarCodeCtrl1.Width = 135.75

    Sheets(2).PageSetup.Orientation =xlPortrait

    Sheets("sheet2").PrintOutCopies:=1

     Next

             Set obj = Nothing

             MsgBox "打印完成"

End Sub

砂海

有找二维码的搞法么.

zhangmengyuan66

砂海 发表于 2018-3-13 15:39
有找二维码的搞法么.

有，可以的

zhangmengyuan66

砂海 发表于 2018-3-13 15:39
有找二维码的搞法么.

有，可以的

zhangmengyuan66

zhangmengyuan66 发表于 2018-3-14 08:55
有，可以的

可以留下您的邮箱或扣扣给您发资料