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