ByteScout PDF SDK – VBScript and VB6 – Create New PDF Document

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Create New PDF Document

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Create-New-PDF-Document.pdf

How to create new PDF document in VBScript and VB6 with ByteScout PDF SDK

Tutorial on how to create new PDF document in VBScript and VB6

With this source code sample you may quickly learn how to create new PDF document in VBScript and VB6. ByteScout PDF SDK is the SDK for pdf documents generation, modification and updates. Can also generate and fill PDF forms. Provides support for text (fonts, style, size, font family), layers, pdf form fields, vector and raster drawings and you can use it to create new PDF document with VBScript and VB6.

This code snippet below for ByteScout PDF SDK works best when you need to quickly create new PDF document in your VBScript and VB6 application. This VBScript and VB6 sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Use of ByteScout PDF SDK in VBScript and VB6 is also explained in the documentation included along with the product.

ByteScout PDF SDK free trial version is available on our website. VBScript and VB6 and other programming languages are supported.

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

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

CreateDocument.vbs

      ' This example demonstrates how to create a document and save it to file.

' 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)

' Add sample content
Set timesFont = comHelpers.CreateStandardFont(comHelpers.STANDARDFONTS_TIMES, 24)
Set blackBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorGray(0))
page1.Canvas.DrawString "Hello world!", (timesFont), (blackBrush), 20, 20

' 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