在E立方管理平台中制作条形码十分方便,可以调用系统内置的"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
工具：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
