ByteScout Premium Suite – VBScript – Convert pdf to jpeg with pdf renderer sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Convert pdf to jpeg with pdf renderer sdk

printable version:
ByteScout-Premium-Suite-VBScript-Convert-pdf-to-jpeg-with-pdf-renderer-sdk.pdf

How to convert pdf to jpeg with pdf renderer sdk in VBScript using ByteScout Premium Suite

If you want to learn more then this tutorial will show how to convert pdf to jpeg with pdf renderer sdk in VBScript

The sample shows instructions and algorithm of how to convert pdf to jpeg with pdf renderer sdk and how to make it run in your VBScript application. Want to convert pdf to jpeg with pdf renderer sdk in your VBScript app? ByteScout Premium Suite is designed for it. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Premium Suite. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! If you want to use these VBScript sample examples in one or many applications then they can be used easily.

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)

PDFToJPEG.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 = 1

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