Printing 使用Brother SDK从VB2013.net打印到Brother打印机

我有一些代码，我认为应该打印到我兄弟的打印机，但它似乎完全没有做什么。它快把我逼疯了

有什么想法吗

    Dim PrinterName As String = ComboBox1.Text
    If PrinterName.Contains("Brother") Then
        Dim objDoc As bpac.Document
        objDoc = CreateObject("bpac.Document")
        Dim STRlbl As String = "C:\BarcodeScans\Application\Label.lbx"

        If (objDoc.Open("C:\BarcodeScans\Application\Label.lbx")) Then
            objDoc.GetObject("objCompany").Text = Txtbox1.Text
            objDoc.GetObject("objName").Text = Txtbox2.Text
            objDoc.SetPrinter(PrinterName, True)
            objDoc.StartPrint(STRlbl, PrintOptionConstants.bpoDefault)
            objDoc.PrintOut(1, PrintOptionConstants.bpoDefault)
            objDoc.EndPrint()
            objDoc.Close()
        End If

它不会失败或出错，应该一步一步地遍历每一行，只是不会打印。 标签/模板通过usb从我的电脑直接连接到Brother打印机，打印效果良好。打印机为PT-9700PC

我被难住了。

导入bpac
Imports bpac
Imports System.Drawing.Printing

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim pkInstalledPrinters As String

        ' Find all printers installed
        For Each pkInstalledPrinters In _
            PrinterSettings.InstalledPrinters
            ComboBox1.Items.Add(pkInstalledPrinters)
        Next pkInstalledPrinters

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim PrinterName As String = ComboBox1.Text
        Debug.Print(PrinterName.ToString)
        If PrinterName.Contains("Brother") Then
            Dim objDoc As bpac.Document
            objDoc = CreateObject("bpac.Document")
            Dim STRlbl As String = "C:\Users\...\UPC-A.lbx"
            If (objDoc.Open(STRlbl)) Then
                objDoc.GetObject("tUPC-A").Text = TxtBox1.Text
                objDoc.GetObject("tRetail").Text = TxtBox2.Text
                objDoc.GetObject("tBarCode").Text = TxtBox3.Text
                objDoc.SetPrinter(PrinterName, True)
                objDoc.StartPrint(STRlbl, PrintOptionConstants.bpoDefault)
                objDoc.PrintOut(1, PrintOptionConstants.bpoDefault)
                objDoc.EndPrint()
                objDoc.Close()
            End If
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text <> "" Then
            Button1.Enabled = True
        End If
    End Sub

End Class

导入系统。绘图。打印
公开课表格1
私有子表单1_Load（发送方作为System.Object，e作为System.EventArgs）处理MyBase.Load
Dim pkInstalledPrinters作为字符串
'查找所有已安装的打印机
对于中的每个PKINSTALLEDPRINTES_
PrinterSettings.InstalledPrinters
ComboBox1.Items.Add（pkinstalledPrints）
下一个pkInstalledPrinters
端接头
私有子按钮1\u单击（发送者作为System.Object，e作为System.EventArgs）处理按钮1。单击
Dim PrinterName As String=ComboBox1.Text
Debug.Print（PrinterName.ToString）
如果PrinterName.包含（“兄弟”），则
作为bpac.文档的Dim objDoc
objDoc=CreateObject（“bpac.Document”）
Dim STRlbl As String=“C:\Users\…\UPC-A.lbx”
如果（objDoc.Open（STRlbl）），则
objDoc.GetObject（“tUPC-A”）.Text=TxtBox1.Text
objDoc.GetObject（“tRetail”）.Text=TxtBox2.Text
objDoc.GetObject（“tBarCode”）.Text=TxtBox3.Text
objDoc.SetPrinter（PrinterName，True）
objDoc.StartPrint（STRlbl、PrintOptionConstants.bpoDefault）
objDoc.PrintOut（1，PrintOptionConstants.bpoDefault）
objDoc.EndPrint（）
objDoc.Close（）
如果结束
如果结束
端接头
私有子Combox1\u SelectedIndexChanged（发送方作为System.Object，e作为System.EventArgs）处理Combox1.SelectedIndexChanged
如果是ComboBox1.Text“”，则
按钮1.已启用=真
如果结束
端接头
末级

导入bpac
导入系统。绘图。打印
公开课表格1
私有子表单1_Load（发送方作为System.Object，e作为System.EventArgs）处理MyBase.Load
Dim pkInstalledPrinters作为字符串
'查找所有已安装的打印机
对于中的每个PKINSTALLEDPRINTES_
PrinterSettings.InstalledPrinters
ComboBox1.Items.Add（pkinstalledPrints）
下一个pkInstalledPrinters
端接头
私有子按钮1\u单击（发送者作为System.Object，e作为System.EventArgs）处理按钮1。单击
Dim PrinterName As String=ComboBox1.Text
Debug.Print（PrinterName.ToString）
如果PrinterName.包含（“兄弟”），则
作为bpac.文档的Dim objDoc
objDoc=CreateObject（“bpac.Document”）
Dim STRlbl As String=“C:\Users\…\UPC-A.lbx”
如果（objDoc.Open（STRlbl）），则
objDoc.GetObject（“tUPC-A”）.Text=TxtBox1.Text
objDoc.GetObject（“tRetail”）.Text=TxtBox2.Text
objDoc.GetObject（“tBarCode”）.Text=TxtBox3.Text
objDoc.SetPrinter（PrinterName，True）
objDoc.StartPrint（STRlbl、PrintOptionConstants.bpoDefault）
objDoc.PrintOut（1，PrintOptionConstants.bpoDefault）
objDoc.EndPrint（）
objDoc.Close（）
如果结束
如果结束
端接头
私有子Combox1\u SelectedIndexChanged（发送方作为System.Object，e作为System.EventArgs）处理Combox1.SelectedIndexChanged
如果是ComboBox1.Text“”，则
按钮1.已启用=真
如果结束
端接头
末级