Hallo zusammen,
Ich habe hier einen Ausweisdrucker von ClearJet und möcht diesen mittels Notes ansprechen.
Habe mir dan von
www.vps.de das sdk geholt und installiert. Das OLE Object erstellen geht ja noch, aber sobald ich eine Funktion aufrufe die auf das Object zugreift, bekomme ich immer einen "Automation object error".
Code:
Dim Cj_CX_one As Variant
Dim sString As String
Dim bRet As Integer
Set Cj_CX_one = CreateObject("IDCardX.IDPrintX.2")
If Not Cj_CX_one Is Nothing Then
sString = "Patrick"
bRet = Cj_CX_one.SetDataField("Name","Patrick")
Call Cj_CX_one.PrintCard()
End If
Den Code habe ich in einem button drin, und will vorerst einfach mal etwas auf eine Ausweiskarte drucken. Aber in der Zeile mit dem SetDataField bekomme ich eben den Automation error. Da ich schon alles mögliche versucht ahbe, wäre ich für eure Hilfe sehr Dankbar!
Gruß Patrick