Nie war es einfacher einem PDF Anhaenge hinzuzufuegen.
Bitte nehmen Sie zur Kenntnis das der Lizenzschluessel nur eine Testlizenz ist!
Const License As String = “Q7Z6GRHW23F7RWJIGDZ4AX6FZM”
Dim alo As New Aloaha_ZUGFeRD.XML
Dim InputPDF As String = “d:\input.pdf”
Dim OutPutPDF As String = “d:\output.pdf”
Dim AttachmentFileList() As String = {}
Dim DoOverWrite As Boolean = True
If alo.Licensed(License) = True Then
Array.Resize(AttachmentFileList, 3)
AttachmentFileList(0) = “d:\Geschaeftsbedingungen.doc”
AttachmentFileList(1) = “d:\test.doc”
AttachmentFileList(2) = “d:\hallo.doc”
If alo.AddAttachments2PDF(InputPDF, AttachmentFileList, OutPutPDF, DoOverWrite, License) = True Then
Else
End If
End If
Sollten Sie eine Testlizenz benoetigen wenden Sie sich bitte an info@aloaha.com
Bitte nehmen Sie zur Kenntnis das sich die Schnittstelle AddAttachments2PDF nicht eignet um ZUGFeRD XML Dateien in das PDF einzubetten. Um ZUGFeRD Dateien einzubetten benutzen Sie bitte MergeXMLIntoPDF