ByteScout PDF Renderer SDK – VBScript and VB6 – Convert PDF To High Quality PNG

Home
/
Articles
/
ByteScout PDF Renderer SDK – VBScript and VB6 – Convert PDF To High Quality PNG

printable version:
ByteScout-PDF-Renderer-SDK-VBScript-and-VB6-Convert-PDF-To-High-Quality-PNG.pdf

How to convert PDF to high quality PNG in VBScript and VB6 with ByteScout PDF Renderer SDK

This code in VBScript and VB6 shows how to convert PDF to high quality PNG with this how to tutorial

Learn how to convert PDF to high quality PNG in VBScript and VB6 with this source code sample. What is ByteScout PDF Renderer SDK? It is the software development kit for rendering of PDF files into high quality images or thumbnails. Various functions are included as well: batch processing, PNG, TIFF output, selection area to render, layers management to render text or images or vectors only. Designed for use from web, desktop and middleware applications. It can help you to convert PDF to high quality PNG in your VBScript and VB6 application.

VBScript and VB6 code samples for VBScript and VB6 developers help to speed up coding of your application when using ByteScout PDF Renderer SDK. This VBScript and VB6 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! Code testing will allow the function to be tested and work properly with your data.

Free trial version of ByteScout PDF Renderer SDK is available for download from our website. Get it to try other source code samples for VBScript and VB6.

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