ByteScout Premium Suite – VBScript – Read barcode from pdf with barcode reader sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Read barcode from pdf with barcode reader sdk

printable version:
ByteScout-Premium-Suite-VBScript-Read-barcode-from-pdf-with-barcode-reader-sdk.pdf

How to read barcode from pdf with barcode reader sdk in VBScript using ByteScout Premium Suite

If you want to learn more then this tutorial will show how to read barcode from pdf with barcode reader sdk in VBScript

Sample source code below will display you how to manage a complex task like read barcode from pdf with barcode reader sdk in VBScript. ByteScout Premium Suite: the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can read barcode from pdf with barcode reader sdk in VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout Premium Suite for VBScript plus the guidelines and the code below will help you quickly learn how to read barcode from pdf with barcode reader sdk. 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.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

TestBarcodeReadingFromPDF.vbs

      Set bc = CreateObject("Bytescout.BarCodeReader.Reader")

' Limit search to 1D barcodes only (exclude 2D barcodes to speed up the search).
' Change to bc.BarcodeTypesToFind.SetAll() to scan for all supported 1D and 2D barcodes 
' or select specific type, e.g. bc.BarcodeTypesToFind.PDF417 = True
bc.BarcodeTypesToFind.SetAll1D()

' Reading barcode from PDF
bc.ReadFromFile "example.pdf"

' Iterate throuhg all found barcodes
For i = 0 To bc.FoundCount - 1
     Msgbox "Found barcode on page #" & CStr(bc.GetFoundBarcodePage(i)) & " with type " & Cstr(bc.GetFoundBarcodeType(i)) & " and value " & bc.GetFoundBarcodeValue(i)
Next

Set bc = Nothing