Generar códigos de barras UPC-A en MS Excel, MS Access y Crystal Reports

Palabras Clave: EAN 13, EAN 8, Japanese Article Number (JAN)

El número de artículo internacional (también conocido como número de artículo europeo o EAN) es una simbología de código de barras utilizada en negocios minoristas para especificar el fabricante y el modelo de un producto. EAN-13 y su variación EAN-8, es el EAN más utilizado en la actualidad.

Un código de país de 2 dígitos más un código de fabricante de 5 dígitos, más un código de producto de 5 dígitos, más un dígito de verificación, forman un código de barras EAN13.

Cuando el código de país de 2 dígitos principal es 45 o 49, este código de barras es un número de artículo japonés (JAN).

Los paquetes de productos más pequeños usan el código de barras EAN8 de 8 dígitos.

Para mostrar el precio minorista sugerido por el fabricante, las personas colocan un código de barras suplementario de 2 o 5 dígitos a la derecha de un código de barras EAN13.

Aquí está la tabla de mapeo de la fuente de código de barras EAN13

Imprimir EAN13 código de barras desde Crystal Reports

1. Iniciar Informe cristal. Haga clic con el botón derecho en Campos de fórmula, elija "Nuevo ..." en el menú contextual.

Escribe "EAN13" en el cuadro de texto Nombre.



2. En la Lista de funciones ==> Funciones adicionales ==> UFL COM y .NET (u212com.dll) ==> UFLs de Visual Basic, elija la función "BCSLinearEAN13".


3. Escriba el campo de la base de datos como parámetro para la fórmula de EAN13. Haga clic en el botón "Guardar".

4. Arrastre el campo de fórmula del EAN13-barcode a su informe de Crystal.



5. Haga clic con el botón derecho en el campo de fórmula de EAN13 y elija "Formato campo" en el menú contextual. Elija la fuente "UpcEanM".



Haga clic en el botón Aceptar. Verá el EAN13 código de barras en su informe.

Imprimir EAN13 en hoja de cálculo de Excel

1. Descargar EAN13 código de barras Excel. Copie la fuente truetype UpcEanM.ttf en su carpeta c:\Windows\Fonts.

2. Abra el indicador de DOS como administrador. Escriba los siguientes comandos:
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll



3. Iniciar Microsoft® Excel® first.

Si está utilizando Access 2000 o 2003, haga clic en el menú ===> Herramientas ==> Macro ===> Seguridad. Elija bajo nivel de seguridad.


Si está utilizando Access 2007/2010/2013/2016/2019, haga clic en el botón Microsoft Office.
Haga clic en Opciones ==> Centro de confianza ==> Configuración de macros, elija "Habilitar todas las macros" como se muestra a continuación.



4. Presione ALT + F11 para abrir el editor de Microsoft® Visual Basic.


5. Desde el editor de Visual Basic, elija el menú Herramientas ===> Referencias. Se abrirá un diálogo. Haga clic en el botón Examinar y elija cruflbcs.dll en la carpeta C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil folder.
Haga clic en crUFLBcs 4.0. Luego haga clic en el botón Aceptar.



6. Presione Ctrl + M, se abrirá un cuadro de diálogo, elija barcodesoft.bas en la carpeta 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'. Luego haga clic en "Abrir".

También puede copiar desde el fragmento de código a continuación

Public Function EAN13(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
EAN13 = obj.EAN13(strToEncode)
Set obj = Nothing
End Function



7. Cierre Visual Basic y vuelva a su base de datos de Access. Crear un cuadro de texto. Copia la siguiente macro en su fuente de control.:
=EAN13([data.code])



8. Haga clic derecho en la celda B1, elija Formato de celda en el menú contextual.
Haga clic en Fuente y elija UpcEanM como fuente.


9. Haga clic en Aceptar. Verá el EAN13 código de barras en su hoja de cálculo de Excel.

Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.

Generar EAN13 código de barras en la base de datos de MS Access

Con el software Barcodesoft EAN13 código de barras, es fácil generar EAN13 código de barras en MS Access.

1. Instale la demo de EAN13 código de barras en su computadora.

2. Abra el indicador de DOS como administrador. Escriba los siguientes comandos:
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll



3. Iniciar Microsoft® Access®.

Si está utilizando Access 2000 o 2003, haga clic en el menú ===> Herramientas ==> Macro ===> Seguridad. Elija bajo nivel de seguridad.


Si está utilizando Access 2007/2010/2013/2016/2019, haga clic en el botón Microsoft Office.

Haga clic en Opciones ==> Centro de confianza ==> Configuración de macros, elija "Habilitar todas las macros" como se muestra a continuación.



4. Presione ALT + F11 para abrir el editor de Microsoft® Visual Basic.


5. Desde el editor de Visual Basic, elija el menú Herramientas ===> Referencias. Se abrirá un diálogo. Haga clic en el botón Examinar y elija cruflbcs.dll en la carpeta C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil folder.
Haga clic en crUFLBcs 4.0. Luego haga clic en el botón Aceptar.



6. Presione Ctrl + M, se abrirá un cuadro de diálogo, elija barcodesoft.bas en la carpeta 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'. Luego haga clic en "Abrir".



También puede copiar desde el fragmento de código a continuación

Public Function EAN13(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
EAN13 = obj.EAN13(strToEncode)
Set obj = Nothing
End Function

7. Cierre Visual Basic y vuelva a su base de datos de Access. Crear un cuadro de texto. Copia la siguiente macro en su fuente de control.:
=EAN13([data.code])

Tenga en cuenta que 'datos' es el nombre de la tabla, 'código' es el nombre del campo.



8. Haga clic derecho en el cuadro de texto. Elija Propiedades del menú contextual. Aplicar UpcEanM como fuente.



Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.