ByteScout Premium Suite – VBScript – Setup pdf document information with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Setup pdf document information with pdf sdk

printable version:
ByteScout-Premium-Suite-VBScript-Setup-pdf-document-information-with-pdf-sdk.pdf

setup pdf document information with pdf sdk in VBScript with ByteScout Premium Suite

Learn to code setup pdf document information with pdf sdk in VBScript: How-To tutorial

This page helps you to learn from code samples for programming in VBScript. ByteScout Premium Suite was made to help with setup pdf document information with pdf sdk in VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Want to speed up the application development? Then this VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Premium Suite. Follow the steps-by-step instructions from the scratch to work and copy and paste code for VBScript into your editor. Further improvement of the code will make it more robust.

Trial version can be downloaded from our website for free. It contains this and other source code samples for VBScript.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

DocumentInformation.vbs

      ' This example demonstrates how to set various document properties.

' Create Bytescout.PDF.Document object
Set pdfDocument = CreateObject("Bytescout.PDF.Document")
pdfDocument.RegistrationName = "demo"
pdfDocument.RegistrationKey = "demo"

Set comHelpers = pdfDocument.ComHelpers

' Add page
Set page1 = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)
pdfDocument.Pages.Add(page1)

' Change document information.
' Open Document Properties in PDF viewer to see the changes.
pdfDocument.DocumentInfo.Author = "John Doe"
pdfDocument.DocumentInfo.Creator = "My Application"
pdfDocument.DocumentInfo.Keywords = "accounting,invoice"
pdfDocument.DocumentInfo.Title = "Invoice #12345"
pdfDocument.DocumentInfo.Subject = "Invoice"
pdfDocument.DocumentInfo.CreationDate = CDate("2015-12-21")
pdfDocument.DocumentInfo.ModificationDate = Now

' 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