ByteScout Premium Suite – VBScript – Convert pdf to 1-bit bmp with pdf renderer sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Convert pdf to 1-bit bmp with pdf renderer sdk

printable version:
ByteScout-Premium-Suite-VBScript-Convert-pdf-to-1-bit-bmp-with-pdf-renderer-sdk.pdf

How to convert pdf to 1 bit bmp with pdf renderer sdk in VBScript and ByteScout Premium Suite

This code in VBScript shows how to convert pdf to 1 bit bmp with pdf renderer sdk with this how to tutorial

The documentation is designed for a specific purpose to help you to apply the features on your side. ByteScout Premium Suite can convert pdf to 1 bit bmp with pdf renderer sdk. It can be applied from VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Premium Suite for convert pdf to 1 bit bmp with pdf renderer sdk below and use it in your application. Simply copy and paste in your VBScript project or application you and then run your app! Applying VBScript application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

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)

PDFToBmp.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"

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

' Render PDF document at 96 DPI - default PC display resolution
' To get higher quality output, set 200, 300 or more
Dim renderingResolution
renderingResolution = 96

Set renderingOptions = CreateObject("Bytescout.PDFRenderer.RenderingOptions")
' Set pixel format to 1-bit
renderingOptions.ImageBitsPerPixel = 0 ' 0 - 1-bit; 1 - 8-bit; 2 - 24-bit; 3 - 32-bit

' iterate through pages
For i = 0 To renderer.GetPageCount() - 1
	' Save 1-bit image to file
	renderer.Save_2 "page" & CStr(i) & ".bmp", outputImageFormat, i, renderingResolution, (renderingOptions)
Next