ByteScout Premium Suite – VBScript – Convert pdf to high quality png with pdf renderer sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Convert pdf to high quality png with pdf renderer sdk

printable version:
ByteScout-Premium-Suite-VBScript-Convert-pdf-to-high-quality-png-with-pdf-renderer-sdk.pdf

How to convert pdf to high quality png with pdf renderer sdk in VBScript using ByteScout Premium Suite

How to write a robust code in VBScript to convert pdf to high quality png with pdf renderer sdk with this step-by-step tutorial

The sample source code below will teach you how to convert pdf to high quality png with pdf renderer sdk in 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. It can be applied to convert pdf to high quality png with pdf renderer sdk using VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VBScript plus the guidelines and the code below will help you quickly learn how to convert pdf to high quality png with pdf renderer sdk. Just copy and paste the code into your VBScript application’s code and follow the instructions. 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 to see and try many others 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)

PDFToPNG.vbs

      ' Create Bytescout.PDFRenderer.RasterRenderer  object
Set renderer = CreateObject("Bytescout.PDFRenderer.RasterRenderer")

renderer.RegistrationName = "demo"
renderer.RegistrationKey = "demo"

' Load sample PDF document
renderer.LoadDocumentFromFile "../../multipage.pdf"

' Render PDF document at 600 DPI for higher quality
Dim renderingResolution
renderingResolution = 600

' Image format: 0 - BMP; 1 - JPEG; 2 - PNG; 3 - TIFF; 4 - GIF
Dim outputImageFormat
outputImageFormat = 2

' Iterate through pages
For pageIndex = 0 To renderer.GetPageCount() - 1
	' Render document page to PNG image file
	renderer.Save "page" & CStr(pageIndex) & ".png", outputImageFormat, pageIndex, renderingResolution
Next