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

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

printable version:
ByteScout-PDF-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 using ByteScout PDF Suite

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

An easy to understand guide on how to convert pdf to 1 bit bmp with pdf renderer sdk in VBScript with this source code sample. ByteScout PDF Suite can convert pdf to 1 bit bmp with pdf renderer sdk. It can be applied from VBScript. ByteScout PDF Suite is the set that includes 6 SDK products 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.

The SDK samples given below describe how to quickly make your application do convert pdf to 1 bit bmp with pdf renderer sdk in VBScript with the help of ByteScout PDF Suite. Simply copy and paste in your VBScript project or application you and then run your app! Want to see how it works with your data then code testing will allow the function to be tested and work properly.

Trial version of ByteScout PDF Suite is available for free. Source code samples are included to help you with your VBScript app.

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