Writing of the code to batch barcode generation in VBScript can be done by developers of any level using ByteScout Barcode SDK. ByteScout Barcode SDK was made to help with batch barcode generation in VBScript. ByteScout Barcode SDK is the fully featured library to generate barcodes. Supports QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix and many other barcode types. Includes various options for barcode generation to ensure output quality, add barcodes to new or existing pdf files and images.
VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Barcode SDK. To do batch barcode generation in your VBScript project or application you may simply copy & paste the code and then run your app! Code testing will allow the function to be tested and work properly with your data.
Trial version can be downloaded from our website. Source code samples for VBScript and documentation are included.
' 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