Vb.net Brother打印机Visual Basic 10

大家好，谢谢你们成为如此伟大和有帮助的社区。我目前正在使用Visual Basic应用程序（使用10 express版本）使用兄弟打印机QL-500打印标签。由于某些原因，Brother提供的样品不起作用。。。。其中任何一个，最糟糕的是没有任何错误。。。。现在，Brother P-Touch Editor 5.1工作正常，打印效果良好。我正在使用b-PAC3客户端组件（64位），运行在Windows7 64位上。我知道有些人建议以x86为目标，我这样做了，但运气不好，这是一回事，什么都没有发生，请参阅下面我使用的兄弟代码。谢谢

  b-PAC 3.0 Component Sample (Badge)
'
'       (C)Copyright Brother Industries, Ltd. 2009
'
'*******************************************************************
Option Explicit On

Public Class Badge
    Const sPath = "C:\Program Files\Brother bPAC3 SDK\Templates\Badge.lbx"

    '********************************************************
    '   Open and Print a spcified file.
    '********************************************************
    Public Sub DoPrint()
        Dim bRet As Boolean
        Dim ObjDoc As bpac.Document
        ObjDoc = CreateObject("bpac.Document")
        'Open lbx file
        bRet = ObjDoc.Open(sPath)
        If (bRet <> False) Then
            ObjDoc.GetObject("objName").Text = txtName.Text
            ObjDoc.GetObject("objCompany").Text = txtCompany.Text

            'objDoc.SetMediaByName(objDoc.Printer.GetMediaName, True)
            ObjDoc.StartPrint("", bpac.PrintOptionConstants.bpoDefault)
            ObjDoc.PrintOut(1, bpac.PrintOptionConstants.bpoDefault)
            ObjDoc.EndPrint()
            ObjDoc.Close()
        End If
End Sub

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

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
End Class

b-PAC 3.0组件样本（徽章）
'
"(三)版权所有兄弟实业有限公司2009
'
'*******************************************************************
选项显式打开
公众阶级徽章
Const sPath=“C:\Program Files\Brother bPAC3 SDK\Templates\Badge.lbx”
'********************************************************
'打开并打印指定的文件。
'********************************************************
公共子文件打印（）
作为布尔函数的Dim-bRet
作为bpac.文档的Dim ObjDoc
ObjDoc=CreateObject（“bpac.Document”）
'打开lbx文件
bRet=ObjDoc.Open（sPath）
如果（bRet False）那么
ObjDoc.GetObject（“objName”）.Text=txtName.Text
ObjDoc.GetObject（“objCompany”）.Text=txtCompany.Text
'objDoc.SetMediaByName（objDoc.Printer.GetMediaName，True）
ObjDoc.StartPrint（“，bpac.PrintOptionConstants.bpoDefault）
ObjDoc.PrintOut（1，bpac.PrintOptionConstants.bpoDefault）
ObjDoc.EndPrint（）
ObjDoc.Close（）
如果结束
端接头
私有子btnPrint_Click（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理btnPrint。单击
DoPrint（）
端接头
私有子btnClose_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnClose。单击
我
端接头
末级

---

在尝试联系Brother technical两周后，没有任何问题仍在等待他们的回复，但现在一切正常。。。不是这个徽章代码，而是我的程序。如果有人有相同的问题，请尝试安装b-PAC3客户端组件非64，然后重新安装兄弟驱动程序，不知何故，这解决了问题，但仍想知道问题是什么，最好在其他系统上避免它