Print Barcodes

[Adolfo]

Hola Fivewinners

Necesito imprimir un codigo de barras sin saber cual sera el contenido.
Pueden ser un EAN13, un UPC, o una mezcla rara de letras y numeros, no puedo saber que tipo sera de antemano.
Estos son ejemplos de codigos que podria imprimir.

2800560056984
0903666-1
CON00105
AT3260599851

y que el lector pueda leerlos, cuando vienen de fabrica si puedo leerlos, pero ahora necesito imprimirlos yo y que el lector (SYMBOL y DATALOGIC) los lea tal cual.
Que barcode puedo usar? Han tenido experiencia con rarezas asi?
Saludos

Hi Fivewinners
I need to print a barcode without knowing its content.
It could be a EAN13, UPC, or a wierd mix between characters and numbers, can't know in advance which type.
These are some samples of the codes I need to print

2800560056984
0903666-1
CON00105
AT3260599851

The barcode readers work with no problem with the original ones, but now I need to print them myself. I got 2 readers (Symbol and Datalogic)
Which barcode must I use? Do you have any experience at all with these oddities?
Thanks in advance.

[cmsoft]

Hola Adolfo:
Puedes probar con algun font de codigo de barras que imprima 3 of 9, codigos de barras que representan letras, numeros y simbolos, como por ejemplo este:

Code: Select all  Expand view

AddFontResource( "Code39r.ttf" )
DEFINE FONT oFont4 NAME "Free 3 of 9"    SIZE 60,60
PRINT oPrn NAME "Etiquetas de Barras" PREVIEW
          PAGE
          oPrn:Say(1,1 ,CodigoBarra1(STRTRAN(STR(nCodigo,6)," ","0")+cTalle+cColor),oFont4)
          ENDPAGE
ENDPRINT

STATIC FUNCTION CodigoBarra1( x )
RETURN "*"+x+"*" // El * es el codigo que abre y cierra el codigo de barra
 

Tendras que ver si tu lector lee este tipo de codigos
Espero que te de una pista