• 
• 
• 

Imprimir QRCode en hoja de cálculo de Excel

1. Descargar QRCode Excel. Copie la fuente truetype bcsQRCodeS.ttf en su carpeta c:\Windows\Fonts.

2. Haga clic con el botón derecho en el símbolo del sistema y ejecute el símbolo del sistema como administrador.




Escriba los siguientes comandos para registrar cruflbcs.dll
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil"
regsvr32.exe cruflbcs.dll



Para registrar DLL de 64 bits, escriba los siguientes comandos
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil"
%systemroot%\System32\regsvr32.exe cruflbcs_x64.dll



Si ve la siguiente ventana emergente, su registro fue exitoso.




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 QRCode(strToEncode As String) As String
Dim obj As cruflBCS.CQRCode
Set obj = New cruflBCS.CQRCode
QRCode = obj.EncodeCR(strToEncode, 0, 0, 0)
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.:
=qrcode([data.code])



8. Haga clic derecho en la celda B1, elija Formato de celda en el menú contextual.


9. Haga clic en Fuente y elija BcsqrcodeS como fuente.


10. Haga clic en la pestaña Alineación y seleccione "envolver texto".



11. Haga clic en Aceptar. Verá el QRCode en su hoja de cálculo de Excel. Puede haber una pequeña brecha entre las líneas de QRCode. Sin embargo, esto no será un problema cuando imprima y escanee, porque la fuente de truetype bcsqrcodes está diseñada para reducir la brecha al mínimo.




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.

• 
•