ByteScout PDF Suite – VBScript – Convert pdf to png with pdf renderer sdk

Home
/
Articles
/
ByteScout PDF Suite – VBScript – Convert pdf to png with pdf renderer sdk

printable version:
ByteScout-PDF-Suite-VBScript-Convert-pdf-to-png-with-pdf-renderer-sdk.pdf

How to convert pdf to png with pdf renderer sdk in VBScript and ByteScout PDF Suite

Step-by-step tutorial on how to convert pdf to png with pdf renderer sdk in VBScript

Sample source code below will display you how to manage a complex task like convert pdf to png with pdf renderer sdk in VBScript. What is ByteScout PDF Suite? It is the bundle that provides six different SDK libraries to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can help you to convert pdf to png with pdf renderer sdk in your VBScript application.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout PDF Suite. Simply copy and paste in your VBScript project or application you and then run your app! Further improvement of the code will make it more robust.

ByteScout provides the free trial version of ByteScout PDF Suite along with the documentation and source code samples.

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 96 DPI - default PC display resolution
' To get higher quality output, set 200, 300 or more
Dim renderingResolution
renderingResolution = 96

' 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