Interleaved 2 of 5 está diseñado para codificar datos numéricos. Tiene una mayor capacidad de datos que el Code 25.

Con el paquete de fuentes Interleaved 25 de Barcodesoft y Microsoft® Access®, es muy conveniente imprimir Interleaved 2 of 5 bar code desde su impresora de escritorio.

1. Copie todas las fuentes True Type (*.ttf) que se encuentran en la carpeta de fuentes a su carpeta c:\Windows\Fonts.

2. Abra el símbolo del sistema (DOS). Si está usando Windows, ábralo como administrador.
Vaya a la siguiente carpeta:
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
Escriba el siguiente comando DOS para registrar crUFLbcs.dll:
regsvr32 crUFLbcs.dll


Si el registro falla, use el siguiente comando DOS:
Regtlibv12 es una utilidad de Windows .NET Framework 2.0.
Regtlibv12 _cruflbcs.tlb

3. Inicie Microsoft® Access® y cambie el nivel de seguridad.
Si usa Access 2010 o superior, haga clic en el botón de Microsoft Office
Luego haga clic en "Opciones de Access", aparecerá un cuadro de diálogo. Elija "Centro de confianza", haga clic en "Configuración del Centro de confianza". Establezca la configuración de macros en "Habilitar todas las macros" como se muestra a continuación.


4. Presione Alt+F11 en Access para abrir el editor de Microsoft® Visual Basic.


5. Desde el editor de Visual Basic, elija el menú Herramientas ===> Referencias. Aparecerá un cuadro de diálogo. Haga clic en el botón Examinar y elija cruflbcs.dll de su carpeta de trabajo.
Generalmente está en C:\Program File\CommonFiles\Barcodesoft\Fontutil.
Marque la casilla junto a crUFLBcs 1.0 Type Library como se muestra a continuación. Luego haga clic en el botón OK.


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


Si la función ITF25 o ITF25Check se ve diferente a los códigos de abajo, copie y pegue el siguiente fragmento de código para reemplazarlo en el módulo de barcodesoft.

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

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

7. Cierre Visual Basic y regrese a su base de datos de Access. Ahora, cree un reporte en vista de diseño y escriba una de las siguientes macros en el campo donde desea mostrar interleaved 2of 5 barcode antes de aplicar el tipo de letra I25mHr:
=ITF25([data.code])
=ITF25Check([data.code])

Tenga en cuenta que 'data' es el nombre de la tabla y 'code' es el nombre del campo.


8. Haga clic derecho en el campo donde desea mostrar interleaved 2of5 barcode. Elija Propiedades en el menú contextual. Aplique uno de los tipos de letra adecuados al campo, como I25mHr.


Para más información sobre Interleaved 2 of 5 barcode, haga clic en BarCodeSoft Interleaved 25 barcode.

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