CorelDraw & VBA
Summary & Introduction
Guide to CorelDraw VBA
Creating Variable Data
Variable Data From Access
Variable Data From Excel
Variable Data Without a Data File
CorelDraw BarCode Wizard
EAN13 BarCodes Without The Wizard
Code 39 BarCodes Without The Wizard
ITF-14 BarCodes Without The Wizard
Code 128 BarCodes Without The Wizard
QR BarCodes
Variable Pictures
Sorting for Guillotining
Repositioning Data
Pantone Colors
Saving VBA Code to a Previous Version of CorelDraw
Trim Marks
PhotoPaint
Miscellaneous VBA
Help
 
EAN13 BarCodes

Here are two EAN13 barcode generators that can create barcodes in CorelDraw, Excel & Word or any program that can handle VBA.

The first is open source & in essence it means it is free to use without charge.
It is from "Open Bar Codes" see http://grandzebu.net.
Its limitation is that you have limited control over the style of the bar code.
The second bar code generator has been derived from Barcode Font Pack v1.2 by Chaos Microsystems Inc. who do not appear to exist any longer.
This is a shareware type program.
I leave it up to you to gain their approval to use their product.

Below is a comparisons of the printed styles.
Each is printed at a size of 36 points.
Code EAN-13 is from the open source program "Open Bar Codes" whilst the next four formats below are from "Barcode Font Pack".
Each program requires its unique fonts to be installed.
You cannot use the fonts from the other program.

Up till now to change the look of the "Open Bar Codes" bar code you have options.
If you were to place a white box over the top of barcode you could reduce the height of the barcode.
Similarly if you do not want the numbers underneath could could cover them with a white box and possible have the numbers typed above in any font desired.
What I have done in the past is convert the barcode to a curve then use BreakApartEx.
When the barcode is first place on a page at 0,0 the text will be below the bottom of the page.
It is then a simple job of deleting every shape whose vertical position is < 0.
Now place new text below the barcode and position the barcode and text at the appropriate position.

However, I have modified the EAN-13 Half Height font.
The new font is called EAN13_No_Numbers and it does not contain any numbers below the barcode.
Now you can stretch or squash the barcode as desired and add your own numbers below the barcode.

Barcode_Samples.jpg



Here is the EAN13 module for "Open Bar Codes". Here is the "Code EAN13" font for this bar code.




Here is the EAN13 module for "Barcode Font Pack". For this module you must download & install at least one of the following fonts.

EAN-13 - The standard EAN13 font.

EAN-13HH - A half height EAN13 font.

EAN-13B - An EAN13 font that extends between the numbers at the foot.

EAN-13BH - A half height EAN13 font that extends between the numbers at the foot.

EAN13_No_Numbers - A half height EAN13 font but without any numbers below. This font can be stretched and squashed.


Here I have included the Barcode Font Pack module in an Excel file but it can also be used in CorelDraw or here is one for Word to create barcodes.
They are written for the font "EAN-13".
Download the font "EAN-13" before running these macros.
There are instructions, in the modules, so that one of the other 3 fonts for this method can be used.
If you want to use the module in CorelDraw or Word all you have to do is export or copy the module into a document and add/remove apostrophes near the bottom of the module depending on whether the barcode is to go into CorelDraw, Excel or Word.

The source of the data is currently manual via an inputbox but the inputbox can be replaced by automatically reading from a data file.

2021_11_17