兄弟打印机Visual Basic 10

Question

大家好，感谢您成为如此出色而乐于助人的社区。我目前正在使用 Visual Basic应用程序（使用10个快速版本）来使用 Brother打印机QL-500 打印标签。由于某种原因，兄弟提供的样品不起作用......其中任何一个和最糟糕的部分都没有任何错误....现在兄弟P-Touch Editor 5.1 工作和打印很好。我正在使用 b-PAC3客户端组件（64位），在 Windows 7 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

Answer 1

尝试联系兄弟技术2周后，没有任何问题仍在等待他们的回复，但现在一切正常......不是这个徽章代码，但我的程序如果有人有同样的问题尝试安装 b-PAC3客户端组件非64 以及重新安装兄弟驱动程序以某种方式修复了这个问题仍然想知道在其他系统上避免它的问题会很好。