ByteScout BarCode Generator SDK – VBScript – Set Bar Code Size In Inches

Home
/
Articles
/
ByteScout BarCode Generator SDK – VBScript – Set Bar Code Size In Inches

printable version:
ByteScout-Barcode-SDK-VBScript-Set-Bar-Code-Size-In-Inches.pdf

How to set bar code size in inches in VBScript using ByteScout Barcode SDK

How to code in VBScript to set bar code size in inches with this step-by-step tutorial

The sample source code below will teach you how to set bar code size in inches in VBScript. What is ByteScout Barcode SDK? It is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images. It can help you to set bar code size in inches in your VBScript application.

Fast application programming interfaces of ByteScout Barcode SDK for VBScript plus the instruction and the code below will help you quickly learn how to set bar code size in inches. Just copy and paste the code into your VBScript application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample VBScript codes.

Free trial version of ByteScout Barcode SDK is available on our website. Documentation and source code samples are included.

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