使用Access VBA的创建例子

下面将使用Access2003制作的固定资产管理清单进行介绍。
如下所示，使用“标签打印”的名称创建窗体，在其中添加“标签打印”按钮。

在“标签打印”按钮的事件进程中输入以下程序。

						
						Private Sub 标签打印_Click()
						'生成b-PAC对象
						Dim ObjDoc As bpac.Document
						Set ObjDoc = CreateObject("bpac.Document")
						'打印通过P-touch Editor创建的模板文件
						'(本Access文件和模板文件位于同一文件夹下)
						Dim bRet As Boolean
	bRet = ObjDoc.Open(CurrentProject.Path & 
						"\固定资产名称.lbx")
						If (bRet <> False) Then
						'在“固定资产名称”的文本对象中设定数据
		ObjDoc.GetObject("Name").Text = Me![固定资产名称].Value
						'在“管理部门”的文本对象中设定数据
		ObjDoc.GetObject("Section").Text = Me![管理部门].Value
						'在“管理No”的文本对象中设定数据
		ObjDoc.GetObject("Number").Text = Me![管理No].Value
						'在条形码对象中设定数据
		ObjDoc.GetObject("QR代码1").Text = Me![管理No].Value
						'执行打印
		ObjDoc.StartPrint "DocumentName", bpoAutoCut
		ObjDoc.PrintOut 1, bpoAutoCut
		ObjDoc.EndPrint
						End If
						'释放b-PAC对象
						Set ObjDoc = Nothing
Exit_打印_Click:
						Exit Sub
Err_打印_Click:
	MsgBox Err.Description
						Resume Exit_打印_Click
						End Sub

补充

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

退出窗体的设计模式后，在“标签打印”窗体中显示要执行标签打印的数据，点击“标签打印”按钮。
将使用P-touch Editor创建的标签布局文件设为模板，按所选数据的值打印标签。