Avec le logiciel Barcodesoft 'PDF417', il est simple de générer des PDF417 dans la base de données MS Access.
1. Installer la démo PDF417 sur votre ordinateur.
2. Faites un clic droit sur l'invite de commande et exécutez l'invite de commande en tant qu'administrateur.
Tapez les commandes suivantes pour enregistrer cruflbcs.dll
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil"
regsvr32.exe cruflbcs.dll
Pour enregistrer une DLL 64 bits, veuillez saisir les commandes suivantes
cd "C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil"
%systemroot%\System32\regsvr32.exe cruflbcs_x64.dll
Si vous voyez la fenêtre pop-up suivante, votre inscription a réussi.
3. Démarrer Microsoft® Access®.
Si vous utilisez Excel 2000 ou 2003, cliquez sur le menu ===> Outils ==> Macro ===> Sécurité. Choisissez le niveau de sécurité faible.
Si vous utilisez Excel 2007/2010/2013/2016/2019, cliquez sur le Microsoft Office bouton.
cliquez sur Options ==> Centre de gestion de la confidentialité ==> Paramètres macro, choisissez "Activer toutes les macros".
4. Appuyez sur ALT + F11 pour ouvrir Microsoft® Visual Basic Editor.
5. Dans l'éditeur Visual Basic, choisissez le menu Outils ===> Références. Il va ouvrir une boîte de dialogue. Cliquez sur le bouton Parcourir et choisissez cruflbcs.dll dans votre dossier 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'.
Cliquez sur crUFLBcs 4.0 comme indiqué ci-dessous. Puis cliquez sur le bouton OK.
6. Appuyez sur Ctrl + M, une boîte de dialogue apparaîtra. Choisissez "barcodesoft.bas" dans le dossier "C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil". Puis cliquez sur "Ouvrir".
Vous pouvez télécharger 'barcodesoft.bas' à partir de PDF417.
Vous pouvez copier un extrait de code ci-dessous:
Public Function PDF417(strToEncode As String) As String
Dim obj As cruflBCS.CPDF417
Set obj = New cruflBCS.CPDF417
PDF417 = obj.EncodeCR(strToEncode, 0, 0, 0)
Set obj = Nothing
End Function
7. Fermez Visual Basic et revenez à votre base de données Access. Créez une zone de texte. Tapez la macro suivante dans contrôle source:
=PDF417([data.code])
'Data' est le nom de la table. 'Code' est le nom du champ.
8. Cliquez avec le bouton droit sur la zone de texte. Choisissez Propriétés dans le menu contextuel. Appliquez l'une des polices "PDF417", telles que BcsPDF417.
Microsoft et le logo Office sont des marques de commerce ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.