Software Search, Categories and Specials
Ozgrid, Experts in Microsoft Excel Spreadsheets
Javascript DHTML Drop Down Menu Powered by dhtml-menu-builder.com

Active DataXL - Download

 

AnalyserXL - Download

 

DownloaderXL - Download

 

Smart VBA - Download

 

TraderXL - Download

Visual Basic Barcode Font Module (or VB source code) with Barcode Fonts

 

Microsoft Excel - From Beginner to Expert in 6 Hours/ EXCEL DASHBOARD REPORTS

Visual Basic Barcode Font Module Details

All purchases can be made via Id-Automations site

The ID-Automation VB Font Module (or source code from the module) calculates the Start , stop and check digits for the barcode and returns a character string, that when combined with our barcode font, creates a correct barcode. VB programmers may add our module to their Visual Basic application and then access the functions directly. Using this method, there is nothing to distribute with your application except the barcode font because the functions of the module are compiled into your EXE file. Our barcode font module is free to use as long as you own a license to one of our bar code fonts. Redistribution of our fonts and components outside your organization (including this source code and module) requires a Developer License.

The following functions are available in our module. For all functions below the data input type is a single string. A number may be required for additional parameters. For example, Code128c("123456",0). For all number symbologies such as POSTNET and UPC, you may input dashes or spaces for easier readability and they will be filtered out by the function before the barcode is generated. For UPC-A, UPC-E & EAN-13 you can enter the +2 and +5 add-on codes by just adding them to the end of the string. 

Function Notes
Code128(Data, Number) If you are not sure which Code 128 set is for your application, then use this one. This is a "Code 128 Auto" function that will automatically encode any data from ASCII 0 to ASCII 127. It will automatically switch to character set C for numbers also.
To encode alpha-numeric UCC/EAN-128, ASCII 202 or character is entered as the FNC1 before each AI. For example, the UCC number of (8100)712345(21)12WH5678 should be entered as: 81007123452112WH5678.
(Data, 0) formats barcode output string for the Code 128 barcode fonts.
(Data, 1) returns the human readable data.
(Data, 2) returns only the check digit.
Code128a() Use the characters from set B to print characters not on the keyboard; the scanner will scan characters from set A. Formats output to the Code 128 barcode fonts.
Code128b() Returns codes formatted to the Code 128 character set B. Formats output to the Code 128 barcode fonts.
Code128c(Data, Number) This code128 function "interleaves" numbers into pairs for high density.
(Data, 0) formats output to the Code 128 barcode fonts.
(Data, 1) returns the human readable data with the check digit included.
(Data, 2) returns only the check digit.
I2of5() This function "interleaves" numbers into pairs for high density without check digits and formats the return string to the Interleaved 2 of 5 font.
I2of5Mod10(Data, Number) (Data, 0) performs the mod10 checksum calculation for increased accuracy and formats the return string to the Interleaved 2 of 5 font. MOD 10 checksums are required by USPS for special services and for SSC-14 when using Interleaved 2 of 5 for that purpose.
(Data, 1) returns the human readable data with the MOD10 check digit included.
(Data, 2) returns the MOD10 check digit.
Code39() Formats the output to print using Code 39 fonts.
Code39Mod43(Data, Number) (Data, 0) performs the mod43 checksum calculation for increased accuracy and then formats the output to print using Code 39 fonts. The mod43 checksum is usually required for LOGMARS and HIBC applications.
(Data, 1) returns the human readable data with the check digit included.
(Data, 2) returns only the check digit.
Codabar() Formats the output to print using Codabar fonts.
UCC128() Use this function for UCC/EAN-128 applications when you have already generated your MOD10 check digit if required. Supports UCC-128, EAN-128, SCC-18 and SCC-14. FNC1 automatically included after Start digit, enter "FA" between even numbers for additional FNC1 Codes. Formats the output to print using Code 128 fonts.
SCC14(Data, Number) SCC14(Data, 0) generates the MOD10 required and then formats the output to print EAN-14 and SCC-14 using Code 128 fonts. The input for Data must be a 13 to 17 digit number, however, only 13 are needed. The required application identifier of (01) is automatically added.
SCC14(Data, 1) returns the human readable data for SCC14 / EAN14.
SCC14(Data, 2) returns the MOD10 check digit.
SSCC18(Data, Number) SCC18(Data, 0) generates the MOD10 required for SSCC-18 and then formats the output to print SSCC-18 using Code 128 fonts. The input for Data must be a 17 to 21 digit number, however, only 17 are needed. The required application identifier of (00) is automatically added.
SCC18(Data, 1) returns the human readable data for SCC-18.
SCC18(Data, 2) returns the MOD10 check digit.
Postnet(Data, Number) Enter a single string of Zip, Zip + 4 or Zip + 4 + Delivery Point. The input for Data must be a number and can include dashes and spaces.
(Data, 0) formats output to the POSTNET barcode fonts.
(Data, 1) returns the human readable data with the check digit included.
(Data, 2) returns only the check digit.
USPSss(Data, Number) Used for 20 digit USPS special services numbers with Code 128 fonts. Enter a 19 or 20 digit number; only the first 19 are used.
(Data, 0) formats output to the Code 128 barcode fonts.
(Data, 1) returns the human readable data with the check digit included.
(Data, 2) returns only the check digit.
RM4SCC() Formats the output to print using RM4SCC fonts. Checksum calculated according to the mailsort customer barcoding specification.
MSI(Data, Number) (Data, 0) formats output to the MSI barcode fonts.
(Data, 1) returns the human readable data with the check digit included.
(Data, 2) returns only the check digit.
Code11() Only the "C" check digit is calculated which is the standard when encoding 10 digits or less.
UPCa() Enter UPC-A with or without a check digit, add-ons are supported. Formats output to the UPC/EAN barcode font.
UPCe() Enter the full 11 or 12 digit UPC-A number. The purpose of this function is to print the UPC-E barcode from a UPC-A barcode that can be compressed. It will print a UPC-A if it cannot be compressed by zero suppression rules. Formats output to the UPC/EAN barcode font.
EAN13() Enter EAN-13 with or without a check digit, add-ons are supported. Formats output to the UPC/EAN barcode font.
EAN8() Enter exactly 7 characters (EAN-8 without the check digit). Formats output to the UPC/EAN barcode font.

How to use the module in VB 6:

  1. First, you must install one of our font packages. If you are unsure of which to install, we recommend the Code 128 Font Advantage Package because this package includes several fonts in different heights and it encodes all letters and numbers.
  2. In Visual Basic, Choose Project - Add Module.
  3. Select the ID-Automation.bas file.
  4. Now that the module is part of your project, you can call the functions of the module to format text to our barcode fonts. In this example, we use the Code128() function with VB printer commands to print barcodes with our font from a data control:
    Printer.FontName = "ID-AutomationC128L"
    Printer.CurrentY = 3000
    Printer.FontSize = 16
    Printer.Print  Code128(Data1.Recordset("field1"), 0)
    Printer.FontSize = 10
    Printer.FontName = "Helv"  'Switch to a text font
    Printer.Print "The above barcode was printed with a code 128 font"
    Printer.EndDoc 'This tells the printer to eject the page
  5. When the above code is executed, the barcode will be printed.
  6. If you want a less cryptic method of creating reports in VB 6, we also support printing from Crystal Reports and ActiveReports .

All purchases can be made via Id-Automations site

Special ! Free Choice of Complete Excel Training Course or Excel Add-ins Collection on all purchases totaling over $70.00. ALL purchases totaling over $150.00 gets you BOTH! Send payment proof to [email protected] 31 days after purchase date.  All purchases can be made via Id-Automations site

See Also: Barcodes - Fonts, ActiveX, labels and DLL's Index. Barcode MICR CMC-7 || Codabar Barcode Font || Code 11 Barcode Font || Code 128 Barcode Font || Code 25 Barcode Font || Code 39 Barcode Font || Code 93 Barcode Font || Code39 Full ASCII Barcode Font || Data Matrix Encoder || Interleaved 25 Barcode Font || MICR E13B Font || MSI Barcode Font || OCR Font || PDF417 Encoder || Telepen Barcode Font || UPC EAN Barcode Font



Instant Download and Money Back Guarantee on Most Software

Microsoft Excel - From Beginner to Expert in 6 Hours/ EXCEL DASHBOARD REPORTS

Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!

Microsoft and Microsoft Excel are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates