ByteScout PDF SDK – VBScript and VB6 – Load Existing PDF Document

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Load Existing PDF Document

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Load-Existing-PDF-Document.pdf

How to load existing PDF document in VBScript and VB6 and ByteScout PDF SDK

Tutorial on how to load existing PDF document in VBScript and VB6

With this source code sample you may quickly learn how to load existing PDF document in VBScript and VB6. ByteScout PDF SDK is the component to help programmers in generating new pdf files, modifying and updating existing pdf documents or pdf forms. Provides support for auto-filling pdf forms, adding text with adjustable font, style, size, font family, new form fields, vector and raster drawings. It can load existing PDF document in VBScript and VB6.

The SDK samples like this one below explain how to quickly make your application do load existing PDF document in VBScript and VB6 with the help of ByteScout PDF SDK. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Test VBScript and VB6 sample code examples whether they respond your needs and requirements for the project.

Free trial version of ByteScout PDF SDK is available on our website. Documentation and source code samples are included.

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

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

LoadDocument.vbs

      ' This example demonstrates how to load and modify an existing document.

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

Set comHelpers = pdfDocument.ComHelpers

'  Load existing document
pdfDocument.Load("sample.pdf")
        
' Add new page to loaded document
Set newPage = comHelpers.CreatePage(comHelpers.PAPERFORMAT_A4)
Set timesFont = comHelpers.CreateStandardFont(comHelpers.STANDARDFONTS_TIMES, 24)
Set blackBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorGray(0))
newPage.Canvas.DrawString "New Page", (timesFont), (blackBrush), 20, 20
pdfDocument.Pages.Add(newPage)

' 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