使用Visual Basic 2005的创建例子

1. 使用Visual Basic创建以下窗体。
2. 依次点击“项目”-“添加引用...”，弹出“添加引用”对话框，在“COM”标签画面添加“BrssCom”。
3. 双击“标签打印”按键，输入以下事件处理程序：

   						
   						Private Sub btnPrint_Click(ByVal sender As System.Object, _
   						ByVal e As System.EventArgs) Handles btnPrint.Click
   						'生成b-PAC对象
   						Dim ObjDoc As bpac.Document
   	ObjDoc = CreateObject(
   						"bpac.Document")
   						'打开使用P-touch Editor创建的模板文件
   						'将LBX文件放置到与执行文件相同的文件夹中
   						Dim bRet As Boolean
   	bRet = ObjDoc.Open(
   						".\固定资产名称.lbx")
   						If (bRet <> False) Then'正常打开？
   						'在“固定资产名称”的文本对象中设定数据
   		ObjDoc.GetObject("Name").Text = txtName.Text
   						'在“管理部门”的文本对象中设定数据
   		ObjDoc.GetObject("Section").Text = txtSection.Text
   						'在“管理No”的文本对象中设定数据
   		ObjDoc.GetObject("Number").Text = txtNumber.Text
   						'在条形码对象中设定数据
   		ObjDoc.GetObject("QR条码1").Text = txtNumber.Text
   						'执行打印
   		ObjDoc.StartPrint("DocumentName", bpac.PrintOptionConstants.bpoAutoCut)
   		ObjDoc.PrintOut(1, bpac.PrintOptionConstants.bpoAutoCut)
   		ObjDoc.EndPrint()
   						'关闭文件
   		ObjDoc.Close()
   						Else
   		Msgbox 
   						"没有LBX文件。"
   						End If
   						'释放b-PAC对象
   	ObjDoc = 
   						Nothing
   						End Sub
   						
   					

   补充

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

4. 启动程序，输入各个项目后点击“标签打印”按键。

   将使用P-touch Editor创建的标签布局文件设定为模板，通过所选择的数据值打印标签。

   补充

   如要将制作的软件安装到其它计算机，需在计算机中安装b-PAC。b-PAC可通过以下任意一种方法安装到计算机。

   • 下载并安装b-PAC客户端组件的安装程序。
   • 使用Windows Installer创建安装项目（依次点击Visual Studio 2005的“文件”-“添加”-“添加新项目”，显示“添加新项目”对话框，然后依次点击“其它项目类型”-“建立与分配”选择“建立项目”），在该安装项目中添加b-PAC组件的合并模块 (MSM文件)（通过“项目”-“添加”-“合并模块”，添加“C:\Program Files\Brother bPAC SDK\Redist\BrssCom.msm”）。

返回