ByteScout BarCode Generator SDK – VBScript – Generate barcode with multiline caption

Home
/
Articles
/
ByteScout BarCode Generator SDK – VBScript – Generate barcode with multiline caption

printable version:
ByteScout-Barcode-SDK-VBScript-Generate-barcode-with-multiline-caption.pdf

How to generate barcode with multiline caption in VBScript using ByteScout Barcode SDK

Learning is essential in computer world and the tutorial below will demonstrate how to generate barcode with multiline caption in VBScript

The documentation is designed for a specific purpose to help you to apply the features on your side. Want to generate barcode with multiline caption in your VBScript app? ByteScout Barcode SDK is designed for it. ByteScout Barcode SDK 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.

This prolific sample source code in VBScript for ByteScout Barcode SDK contains various functions and other necessary options you should do calling the API to generate barcode with multiline caption. Follow the instructions from scratch to work and copy the VBScript code. Enjoy writing a code with ready-to-use sample VBScript codes.

If you want to try other source code samples then the free trial version of ByteScout Barcode SDK is available for download from our website. Just try other 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)

GenerateBarcode.vbs

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

' Set barcode value to encode
BC.Value = "(01)07046261398572(17)130331(10)TEST5632(21)19067811811"

' set symbology to GS1-Datamatrix
BC.Symbology = 37

' Set additional caption and it's position
BC.AdditionalCaption = "(01)07046261398572" & Chr(10) & "(17)130331" & Chr(10) & "(10)TEST5632" & Chr(10) & "(21)19067811811"
BC.AdditionalCaptionPosition = 3

' Set path and save output image
Path = "result.png"
BC.SaveImage (Path)

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

Set bc = Nothing