The following code snippet for ByteScout PDF Suite works best when you need to quickly create zugferd invoice with pdf sdk in your VBScript application. Just copy and paste the code into your VBScript application’s code and follow the instructions. Enjoy writing a code with ready-to-use sample codes in VBScript.
You can download free trial version of ByteScout PDF Suite from our website to see and try many others source code samples for VBScript.
' This example demonstrates how to attach a file to PDF document. ' Open pdf document Set pdfDocument = CreateObject("Bytescout.PDF.Document") pdfDocument.RegistrationName = "demo" pdfDocument.RegistrationKey = "demo" ' Load existing document pdfDocument.Load("Invoice.pdf") Set comHelpers = pdfDocument.ComHelpers ' Attach ZUGFeRD XML file Set fileAttachment = comHelpers.CreateFileAttachmentAnnotation("ZUGFeRD-invoice.xml", 0, 0, 0, 0) pdfDocument.Pages.Item(0).Annotations.Add(fileAttachment) ' Instruct PDF viewer applications to show attachments pane on startup (optional) pdfDocument.PageMode = comHelpers.PAGEMODE_ATTACHMENT ' Save document to file pdfDocument.Save("result.pdf") ' Open document in default PDF viewer app Set shell = CreateObject("WScript.Shell") shell.Run "result.pdf", 1, false