Hallo,
ich brauche mal eure Hilfe.
http://www.brother.com/bpac/de/bpac_samples.html
Ich wollte eine Anwendung programmieren wie sie auf der Seite von Brother beschrieben ist. Die installation von der B-PAC bringt einige Samples mit sich, welche sich auch mit VB bearbeiten lassen.
Die Oberfläche hab ich soweit schon bearbeiten können, welches auch kein Problem ist. Mein Problem ist nur das beim Debuggen der Fehler kommt das ich eine Objektinstanz mit dem Schlüsselwort New erstellen soll.
Ausserdem wäre hierbei noch die Frage, wie ich definieren kann mit welchem Drucker die Vorlage gedruckt werden soll.
Wäre euch für eure Hilfe sehr dankbar.
MfG, Giersch
ich brauche mal eure Hilfe.
http://www.brother.com/bpac/de/bpac_samples.html
Ich wollte eine Anwendung programmieren wie sie auf der Seite von Brother beschrieben ist. Die installation von der B-PAC bringt einige Samples mit sich, welche sich auch mit VB bearbeiten lassen.
Die Oberfläche hab ich soweit schon bearbeiten können, welches auch kein Problem ist. Mein Problem ist nur das beim Debuggen der Fehler kommt das ich eine Objektinstanz mit dem Schlüsselwort New erstellen soll.
'************************************************* ******************
'
' 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\TestTestTestTestTest.lbx"
'************************************************* *******
' Open and Print a spcified file.
'************************************************* *******
Public Sub DoPrint()
Dim objDoc As bpac.Document
objDoc = CreateObject("bpac.Document")
If (objDoc.Open(sPath) <> False) Then
objDoc.GetObject("objName").Text = txtName.Text
'objDoc.SetMediaByName(objDoc.Printer.GetMediaName , True)
objDoc.StartPrint("BadgeSample", bpac.PrintOptionConstants.bpoAutoCut)
objDoc.PrintOut(1, bpac.PrintOptionConstants.bpoAutoCut)
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
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
'
' 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\TestTestTestTestTest.lbx"
'************************************************* *******
' Open and Print a spcified file.
'************************************************* *******
Public Sub DoPrint()
Dim objDoc As bpac.Document
objDoc = CreateObject("bpac.Document")
If (objDoc.Open(sPath) <> False) Then
objDoc.GetObject("objName").Text = txtName.Text
'objDoc.SetMediaByName(objDoc.Printer.GetMediaName , True)
objDoc.StartPrint("BadgeSample", bpac.PrintOptionConstants.bpoAutoCut)
objDoc.PrintOut(1, bpac.PrintOptionConstants.bpoAutoCut)
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
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
Wäre euch für eure Hilfe sehr dankbar.
MfG, Giersch
Comment