使用Excel VBA的创建例子

1. 下面将使用Excel2003制作的固定资产管理清单进行介绍。
2. 通过“显示”-“工具栏”-“控制工具框”创建“命令按钮”（按钮Caption设定为“标签打印”）。
3. 双击“标签打印”，启动Visual Basic Editor，输入以下代码。

   						
   						Private Sub CommandButton1_Click()
   						'生成b-PAC对象
   						Dim ObjDoc As bpac.Document
   						Set ObjDoc = CreateObject("bpac.Document")
   						'打印通过P-touch Editor创建的模板文件
   						'(本Excel文件和模板文件位于同一文件夹下)
   	ObjDoc.Open (ActiveWorkbook.Path & 
   						"\固定资产名称.lbx")
   						Dim str As String
   						'对于指定范围的行，执行重复
   						For r = 1 To Selection.Areas(1).Rows.Count
   						'计算行号
   						Dim i As Integer
   		i = Selection.Areas(1).Cells(r, 1).Row
   						'在“固定资产名称”的文本对象中
   						'设定“固定资产名称”的单元格中的内容
   		ObjDoc.GetObject("Name").Text = Cells(i, 3).Text
   						'在“管理部门”的文本对象中
   						'设定“管理部门”单元格中的内容
   		ObjDoc.GetObject("Section").Text = Cells(i, 4).Text
   						'在“管理No”的文本对象中
   						'设定“管理No”的单元格中的内容
   		ObjDoc.GetObject("Number").Text = Cells(i, 5).Text
   						'在条形码对象中
   						'设定“管理No”的单元格中的内容
   		ObjDoc.GetObject("QR条码1").Text = Cells(i, 5).Text
   						'执行打印
   		ObjDoc.StartPrint "DocumentName", bpoAutoCut
   		ObjDoc.PrintOut 1, bpoAutoCut
   		ObjDoc.EndPrint
   						Next
   						'释放b-PAC对象
   	ObjDoc.Close
   						Set ObjDoc = Nothing
   						End Sub
   						
   					

   补充

   • 此外，还可以替换图片对象，或设定字体信息。
   • b-PAC下能够使用的Method，请浏览b-PAC SDK Ver.3.0 文档（可以从b-PAC首页下载）。

4. 完成输入后，关闭Visual Basic Editor，点击“控制工具框”中的“退出设计模式”按钮，退出设计模式。
5. 将Excel文件保存到与模板文件相同的文件夹下。
6. 选中要打印的行，点击“标签打印”按钮。

   将使用P-touch Editor创建的标签布局文件设为模板，按选中行的单元格的值打印标签。

返回