ByteScout Premium Suite - VBScript - Generate Barcodes From Spreadsheet - ByteScout

ByteScout Premium Suite – VBScript – Generate Barcodes From Spreadsheet

  • Home
  • /
  • Articles
  • /
  • ByteScout Premium Suite – VBScript – Generate Barcodes From Spreadsheet

How to generate barcodes from spreadsheet in VBScript using ByteScout Premium Suite

Learning is essential in computer world and the tutorial below will demonstrate how to generate barcodes from spreadsheet in VBScript

The sample shows instructions and algorithm of how to generate barcodes from spreadsheet and how to make it run in your VBScript application. ByteScout Premium Suite can generate barcodes from spreadsheet. It can be applied from VBScript. ByteScout Premium Suite is the bundle that includes twelve SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Premium Suite. Follow the instructions from scratch to work and copy the VBScript code. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

ByteScout provides the free trial version of ByteScout Premium Suite along with the documentation and source code samples.

On-demand (REST Web API) version:
 Web API (on-demand version)

On-premise offline SDK for Windows:
 60 Day Free Trial (on-premise)

generate_barcodes.vbs
      
'*** Prepare Spreadsheet object Set spreadsheet = CreateObject("Bytescout.Spreadsheet.Spreadsheet") spreadsheet.RegistrationName = "demo" spreadsheet.RegistrationKey = "demo" ' Load Excel document spreadsheet.LoadFromFile("test.xlsx") ' Take the first worksheet Set worksheet = spreadsheet.Worksheet(0) '*** Prepare Barcode object Set barcode = CreateObject("Bytescout.BarCode.Barcode") barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set barcode type to PDF417 barcode.Symbology = 13 ' 13 means PDF417 barcode ' Set higher resoultion (300 is good for printing) barcode.ResolutionX = 300 barcode.ResolutionY = 300 ' Show barcode caption (remove these lines if you don't need it) barcode.DrawCaption = True barcode.DrawCaptionFor2DBarcodes = True ' Run through worksheet rows For i = 0 To worksheet.NotEmptyRowMax - 1 ' Get barcode value from first worksheet column barcode.Value = worksheet.Item(i, 0).ValueAsString ' Fit barcode into 40x15 mm rectangle barcode.FitInto_3 40, 15, 4 ' 4 means millimeter units ' Save barcode image to file barcode.SaveImage("barcode" & i & ".png") Next ' Release objects Set spreadsheet = Nothing Set barcode = Nothing

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Premium Suite Home Page

Explore ByteScout Premium Suite Documentation

Explore Samples

Sign Up for ByteScout Premium Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next