ByteScout Premium Suite – VBScript – Set bar code size in inches with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Set bar code size in inches with barcode sdk

printable version:
ByteScout-Premium-Suite-VBScript-Set-bar-code-size-in-inches-with-barcode-sdk.pdf

How to set bar code size in inches with barcode sdk in VBScript with ByteScout Premium Suite

Learn to set bar code size in inches with barcode sdk in VBScript

These source code samples are assembled by their programming language and functions they apply. What is ByteScout Premium Suite? It is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can help you to set bar code size in inches with barcode sdk in your VBScript application.

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 set bar code size in inches with barcode sdk. This VBScript 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! If you want to use these VBScript sample examples in one or many applications then they can be used easily.

You can download free trial version of ByteScout Premium Suite from our website to see and try many others 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)

FitIntoSizeInInches.vbs

      Set bc = CreateObject("Bytescout.BarCode.Barcode")

' Set symbology to PDF417
bc.Symbology = 13 ' 13 = PDF417 barcode type

' Set barcode value to encode
bc.Value = "012345"

' Set barcode size by specifying a square the barcode will be fitted into 5x2 inches square
' Last parameter is the Measure Unit: Inch (2) Specifies the inch as the unit of measure. 
bc.FitInto_3 5, 2, 2

bc.CutUnusedSpace = False ' you can set it to True to cut unused space

bc.SaveImage "result.png"

Set bc = Nothing

' Open the output file in default app
Set shell = CreateObject("WScript.Shell")
shell.Run "result.png", 1, false
Set shell = Nothing