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

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

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

Learning is essential in computer world and the tutorial below will demonstrate how to set bar code size in inches with barcode sdk in VBScript

Source code documentation samples give simple and easy method to install a needed feature into your application. ByteScout Barcode Suite can set bar code size in inches with barcode sdk. It can be applied from VBScript. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK).

The following code snippet for ByteScout Barcode Suite works best when you need to quickly set bar code size in inches with barcode sdk in your VBScript 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 Barcode 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