code 128 código de barras

Imprimir code128 en hoja de cálculo de Excel

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

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

code128 código de barras DLL Excel registro

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.
code128 código de barras Macro Seguridad

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

code128 código de barras Macro configuración

4. Presione ALT + F11 para abrir el editor de Microsoft® Visual Basic.
code128 código de barras VBA

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\CommonFiles\Barcodesoft\Fontutil folder.
Haga clic en crUFLBcs 4.0. Luego haga clic en el botón Aceptar.

code128 código de barras poner referencia

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

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

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

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

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

code128 código de barras import vba

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.:
=code128A([data.code])

code128 código de barras Excel macro

8. Haga clic derecho en la celda B1, elija Formato de celda en el menú contextual.
Haga clic en Fuente y elija code128AmHr como fuente.
code128 código de barras fuente excel

9. Haga clic en Aceptar. Verá el code128 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.

  • code128 código de barras software descargar
  • code128 código de barras  software compra