Private Sub btnPrint_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles btnPrint.Click

 'Create a b-PAC object
 Dim ObjDoc As bpac.Document
 ObjDoc = CreateObject("bpac.Document")

 'Open a template file created with P-touch Editor
 'Put the LBX file and the executable file in the same folder
 Dim bRet As Boolean
 bRet = ObjDoc.Open(".\Fixed asset name.lbx")

 If (bRet <> False) Then  'normally open? 

  'Assign data to the text object of "Fixed asset name"
  ObjDoc.GetObject("Name").Text = txtName.Text

  'Assign data to the text object of Management section
  ObjDoc.GetObject("Section").Text = txtSection.Text

  'Assign data to the text object of Identification No.
  ObjDoc.GetObject("Number").Text = txtNumber.Text

  'Assign data to the barcode object
  ObjDoc.GetObject("QR Code1").Text = txtNumber.Text

  'Print
  ObjDoc.StartPrint("DocumentName", bpac.PrintOptionConstants.bpoAutoCut)
  ObjDoc.PrintOut(1, bpac.PrintOptionConstants.bpoAutoCut)
  ObjDoc.EndPrint()

  'Close the file
  ObjDoc.Close()

 Else
  Msgbox "No LBX file."
 End If

 'Free the b-PAC object
 ObjDoc = Nothing

End Sub