Sie erstellen das ZUGFeRD Object mit einer Codezeile:
Dim alo As New Aloaha_ZUGFeRD.XML
Sollte die Erstellung fehlschlagen bedeutet das das Objekt noch nicht im System registriert ist. Das machen Sie mit RegASM.exe (32 Bit):
regasm Aloaha_ZUGFeRD.dll /codebase
Falls Sie das Objekt direkt mit Daten “befuellen” moechten laden Sie bitte das Objekt so:
Dim ZUG As Aloaha_ZUGFeRD.iXML.ZUGFeRD = Nothing
Dim key As String
'bitte neuen Testkey von info@aloaha.com anfordern
key = "6UTDJCG757DWEWXK4TE22UXMWI"
If alo.Licensed(key) = True Then
ZUG = alo.CreateInvoice("INV0815", "Rechnung gemäß Bestellung", alo.TodayDate.Document_Date, alo.TodayDate.Document_DateFormat, , , "EUR")
end ifBitte nehmen Sie zur Kenntnis das fuer VB6/COM die Funktion Create_Invoice besser geeignet ist!
Es gibt auch ein komplettes Codebeispiel fuer VB6/VBA/COM auf: https://www.zugferdpro.com/erstellung-einer-zugferd-x-rechnung-xml-datei-via-com-schnittstelle-vb6-vba/