PDF/A-3 erzeugen aus ZUGFeRD XML Datei mit Word Mail Merge Vorlage
Mit diesem Code Snippet können Sie mit dem mächtigen Word Mail Merge Verfahren eine PDF/A-3 aus einer ZUGFeRD XML Datei erzeungen. Dabei kann die Word Vorlage beliebig in Layout und Design angepasst werden.
Public Sub CreatePdfFromZugferd(ByVal file_zugferd As String, ByVal word_template As String, ByVal file_pdf As String)
Using zugerdxmlstream = File.OpenRead(file_zugferd)
Dim inv = InvoiceDescriptor.Load(zugerdxmlstream)
Dim doc = New Document(word_template)
doc.DataSource = inv
Using pdfdoctmpstream = New FileStream(file_pdf, FileMode.Create)
Dim fileSpecification = New FileSpecification(zugerdxmlstream, "ZUGFeRD-Invoice.xml")
doc.EmbeddedFiles.Add(fileSpecification)
doc.Save(pdfdoctmpstream, Document.SaveFormat.Pdf_A_3A)
End Using
End Using
End Sub
Using zugerdxmlstream = File.OpenRead(file_zugferd)
Dim inv = InvoiceDescriptor.Load(zugerdxmlstream)
Dim doc = New Document(word_template)
doc.DataSource = inv
Using pdfdoctmpstream = New FileStream(file_pdf, FileMode.Create)
Dim fileSpecification = New FileSpecification(zugerdxmlstream, "ZUGFeRD-Invoice.xml")
doc.EmbeddedFiles.Add(fileSpecification)
doc.Save(pdfdoctmpstream, Document.SaveFormat.Pdf_A_3A)
End Using
End Using
End Sub