ByteScout PDF Suite – VBScript – Transform drawing in pdf with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VBScript – Transform drawing in pdf with pdf sdk

printable version:
ByteScout-PDF-Suite-VBScript-Transform-drawing-in-pdf-with-pdf-sdk.pdf

transform drawing in pdf with pdf sdk in VBScript using ByteScout PDF Suite

Simple tutorial on how to do transform drawing in pdf with pdf sdk in VBScript

An easy to understand guide to learn how to transform drawing in pdf with pdf sdk in VBScript. ByteScout PDF Suite was created to assist transform drawing in pdf with pdf sdk in VBScript. ByteScout PDF Suite is the set that includes 6 SDK products to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript.

VBScript code snippet like this for ByteScout PDF Suite works best when you need to quickly implement transform drawing in pdf with pdf sdk in your VBScript application. 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.

On our website you may get trial version of ByteScout PDF Suite for free. Source code samples are included to help you with your VBScript application.

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

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

Transformations.vbs

      ' This example demonstrates how to use coordinate space transformations.

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

Set canvas = page1.Canvas

' Prepare pens
Set blackPen = comHelpers.CreateSolidPen(comHelpers.CreateColorRGB(0, 0, 0), 2.0)
blackPen.Opacity = 50
Set bluePen = comHelpers.CreateSolidPen(comHelpers.CreateColorRGB(0, 0, 255), 2.0)
bluePen.Opacity = 50
Set greenPen = comHelpers.CreateSolidPen(comHelpers.CreateColorRGB(0, 255, 0), 2.0)
greenPen.Opacity = 50

' Move coordinate space zero point to (200, 200) and draw a rectangle of 50x50 dize
canvas.TranslateTransform 200, 200
canvas.DrawRectangle (blackPen), 0, 0, 50, 50

' Now zoom the coordinate space in twice and draw the same rectangle in green
canvas.ScaleTransform 2, 2
canvas.DrawRectangle (greenPen), 0, 0, 50, 50

' Now rotate the coordinate space by 30 degrees and draw the same rectangle in blue
canvas.RotateTransform 30
canvas.DrawRectangle (bluePen), 0, 0, 50, 50

' 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