ByteScout Premium Suite - VBScript - Set graphics state for pdf with pdf sdk - ByteScout

ByteScout Premium Suite – VBScript – Set graphics state for pdf with pdf sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Premium Suite – VBScript – Set graphics state for pdf with pdf sdk

How to set graphics state for pdf with pdf sdk in VBScript using ByteScout Premium Suite

Learn to code in VBScript to set graphics state for pdf with pdf sdk with this step-by-step tutorial

The documentation is designed for a specific purpose to help you to apply the features on your side. ByteScout Premium Suite: the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can set graphics state for pdf with pdf sdk in VBScript.

The SDK samples given below describe how to quickly make your application do set graphics state for pdf with pdf sdk in VBScript with the help of ByteScout Premium Suite. Just copy and paste the code into your VBScript application’s code and follow the instructions. Check VBScript sample code samples to see if they respond to your needs and requirements for the project.

Trial version of ByteScout Premium Suite is available for free. Source code samples are included to help you with your VBScript app.

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

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

GraphicsState.vbs
      
' This example demonstrates how to save and restore the graphics state. ' 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 ' Keep current graphics state canvas.SaveGraphicsState() ' Transform coordinates and draw rectangle canvas.TranslateTransform 200, 200 canvas.RotateTransform 45 Set blueBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(0, 0, 255)) canvas.DrawRectangle_2 (blueBrush), 0, 0, 100, 100 ' Restore the state and draw the same rectangle canvas.RestoreGraphicsState() Set redBrush = comHelpers.CreateSolidBrush(comHelpers.CreateColorRGB(255, 0, 0)) canvas.DrawRectangle_2 (redBrush), 200, 200, 100, 100 ' 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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next