Link Search Menu Expand Document

Convert PDF To JPEG - VBScript and VB6

PDF Renderer SDK sample in VBScript and VB6 demonstrating ‘Convert PDF To JPEG’

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



Download Source Code (.zip)

Return to the previous page Explore PDF Renderer SDK