ByteScout Premium Suite – VBScript – Use clipping for drawing in pdf with pdf sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Use clipping for drawing in pdf with pdf sdk

printable version:
ByteScout-Premium-Suite-VBScript-Use-clipping-for-drawing-in-pdf-with-pdf-sdk.pdf

How to use clipping for drawing in pdf with pdf sdk in VBScript and ByteScout Premium Suite

How to write a robust code in VBScript to use clipping for drawing in pdf with pdf sdk with this step-by-step tutorial

The sample source codes on this page shows how to use clipping for drawing in pdf with pdf sdk in VBScript. ByteScout Premium Suite can use clipping for drawing in pdf with pdf sdk. It can be applied from VBScript. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

This prolific sample source code in VBScript for ByteScout Premium Suite contains various functions and other necessary options you should do calling the API to use clipping for drawing in pdf with pdf sdk. Follow the instructions from scratch to work and copy the VBScript code. Complete and detailed tutorials and documentation are available along with installed ByteScout Premium Suite if you’d like to learn more about the topic and the details of the API.

You can download free trial version of ByteScout Premium Suite from our website with this and other source code samples for VBScript.

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

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

Clipping.vbs

      ' This example demonstrates how to use the graphics clipping.

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

centerX = 200
centerY = 200

' Create clipping path from circle
Set clippingPath = comHelpers.CreatePath()
clippingPath.AddCircle centerX, centerY, 100
page1.Canvas.SetClip(clippingPath)

' Paint Bytescout.PDF.Rectangle over the clipping circle.
' Only part of the Bytescout.PDF.Rectangle intersecting the clipping circle will be drawn.
Set redBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(255, 0, 0))
page1.Canvas.DrawRectangle_2 (redBrush), centerX - 50, centerY - 50, 200, 200

' 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