Code to create Barcodes 1

[Buitre71]

Hi, this is my first thread and English is my second language.

Does anyone know some code to convert a cell value (basically numbers) to barcode 39 including a module 43 checksum character?

If I have: 24732572

I would like to have:

*24732572W*

then I change the font to 3 of 9 and I have my barcodes.

Thanks in advance for your help.

 

[dougcranston]

Just a few suggestions, no code..

http://www.bizfonts.com/sourcecode/#VB

has some VB code for this. However, you may or may not be able to use it. Read their usage rules. Check under the Visual Basic about 3/4 down this page.

However, if you go to:

http://www.idautomation.com/code39faq.html#MOD43

about mid-page it details the rules for Mod43

Should be able to set up VB Funtion that includes a FOR loop to loop through your text/3of9 value you want to calculate the checksum for and then use a SELECT CASE to determine your Mod43 value to append to your text.

Since you are dealing with Code39 and mention printing, I must assume your in a warehouse environment, and have fonts if Windows attached or a barcode printer.

Been out of the barcode support business for over 5 years, but last I checked most vendors will provide this kind of code snippets either with their product or on their site. Might be a resource you have licenses to use their code already.

Good luck.

DougCranston