:
Here you may get thousands pre-made source code samples for simple implementation in your own programming VBScript projects. ByteScout Barcode Suite was created to assist batch barcode generation with barcode sdk in VBScript. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.
Want to speed up the application development? Then this VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Barcode Suite. To use batch barcode generation with barcode sdk in your VBScript project or application just copy & paste the code and then run your app! VBScript application implementation mostly involves various stages of the software development so even if the functionality works please check it with your data and the production environment.
ByteScout Barcode Suite is available as a free trial. You may get it from our website along with all other source code samples for VBScript applications.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
' HOW TO USE: save this file as "GenerateMultipleBarcodes.vbs'
' change parameters below to your parameters required
' the script wlil generate barcodes into the same folder
' output images are named using encoded value, for example: 100.png represents barcode with encoded value "100"
' TO RUN: install BarCode SDK and in Windows Explorer double-click on "MultipleBarcodes.vbs"
' BEGIN OF BARCODE BATCH GENERATION PARAMETERS
BarCodeType = 16 ' 16 = qr code, for full list of available barcode types see this link: https://bytescout.com/files/help/BytescoutBarCodeSDK/source/html/T_Bytescout_BarCode_SymbologyType.htm
StartValue = 1 ' starting value
StepValue = 2 ' incrementing step for each new barcode
NumberOfBarcodes = 100 ' number of barcodes to generate
BarCodeSDKLicenseName = "demo"
BarCodeSDKLicenseSerial = "demo"
' END OF BARCODE BATCH GENERATION PARAMETERS
' do not change below this line
' initialize barcode library
Set bc = CreateObject("Bytescout.BarCode.Barcode")
bc.RegistrationName = BarCodeSDKLicenseName
bc.RegistrationKey = BarCodeSDKLicenseSerial
' set barcode type to generate
bc.Symbology = BarCodeType
' now make list of barcodes
For i = StartValue to (StartValue + NumberOfBarcodes)*StepValue Step StepValue
bc.Value = CStr(i)
bc.SaveImage CStr(i) & ".png"
Next
j = (StartValue + NumberOfBarcodes)*StepValue
Msgbox "Done: saved " & NumberOfBarcodes & " barcodes in PNG format with values starting from " & CStr(StartValue) & " to " & CStr(j) & " (including) with step by " & CStr(StepValue)
' deinitialize barcode sdk
Set bc = Nothing
60 Day Free Trial or Visit ByteScout Barcode Suite Home Page
Explore ByteScout Barcode Suite Documentation
Explore Samples
Sign Up for ByteScout Barcode Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Barcode Suite Home Page
Explore ByteScout Barcode Suite Documentation
Explore Samples
Sign Up for ByteScout Barcode Suite Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
also available as: