Generate barcode with barcode sdk is simple to apply in VBScript if you use these source codes below. 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) and you can use it to generate barcode with barcode sdk with VBScript.
Want to save time? You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Barcode Suite for generate barcode with barcode sdk below and use it in your application. Simply copy and paste in your VBScript project or application you and then run your app! Further improvement of the code will make it more robust.
Our website gives trial version of ByteScout Barcode Suite for free. It also includes documentation and source code samples.
Set bc = CreateObject("Bytescout.BarCode.Barcode") ' display information about Code39 symbology msgbox "Encoding '012345' using Code39 symbology" & vbCRLF & bc.GetValueRestrictions(0) ' 0 = Code39 symbology ' set symbology to Code39 bc.Symbology = 1 ' 1 = Code39 symbology type ' set barcode value to encode bc.Value = "012345" msgbox "Saving Code39 barcode to 'Code39.png'" bc.SaveImage "Code39.png" ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "code39.png", 1, false Set shell = Nothing msgbox "Encoding '012345' using Aztec symbology" ' set symbology to Aztec (2D) bc.Symbology = 17 ' 17 = Aztec ' set barcode value to encode bc.Value = "012345" ' display information about Aztec symbology msgbox "Encoding '012345' using Aztec symbology" & vbCRLF & bc.GetValueRestrictions(17) ' 17 = Code39 symbology bc.SaveImage "Aztec.png" ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "aztec.png", 1, false Set shell = Nothing Set bc = Nothing