ByteScout PDF SDK – VBScript and VB6 – Transform Drawing in PDF

Home
/
Articles
/
ByteScout PDF SDK – VBScript and VB6 – Transform Drawing in PDF

printable version:
ByteScout-PDF-SDK-VBScript-and-VB6-Transform-Drawing-in-PDF.pdf

transform drawing in PDF in VBScript and VB6 using ByteScout PDF SDK

Make transform drawing in PDF in VBScript and VB6

Tutorial on how to do transform drawing in PDF in VBScript and VB6

Sample source codes below will show you how to cope with a difficult task, for example, transform drawing in PDF in VBScript and VB6. Transform drawing in PDF in VBScript and VB6 can be implemented with ByteScout PDF SDK. ByteScout PDF SDK is the library 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.

VBScript and VB6, code samples for VBScript and VB6, developers help to speed up the application development and writing a code when using ByteScout PDF SDK. VBScript and VB6 sample code is all you need: copy and paste the code to your VBScript and VB6 application’s code editor, add a reference to ByteScout PDF SDK (if you haven’t added yet) and you are ready to go! This basic programming language sample code for VBScript and VB6 will do the whole work for you in implementing transform drawing in PDF in your app.

Trial version can be downloaded from our website. Source code samples for VBScript and VB6 and documentation 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)

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