Générer QRCode dans les rapports Crystal
Générer code à barres QRCode dans rapports Crystal
1. 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"
Pour enregistrer une DLL 64 bits, veuillez saisir les commandes suivantes
regsvr32.exe cruflbcs.dll
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.
2. Ouvrez votre rapport de cristal. Cliquez avec le bouton droit sur Champs de formule, choisissez "Nouveau ..." dans le menu contextuel.
Tapez "qrcode1" dans la zone de texte.
3. Cliquez Fonctions ==> Fonctions supplementaires ==> UFL COM et .NET(u212com.dll), Cliquez "BcsQRCode" fonction.
4. Insérez un objet texte dans votre rapport. Créez plusieurs champs de formule comme indiqué ci-dessous. Ensuite, faites-les glisser et déposez-les en séquence dans le même objet texte.
Local stringVar codestr := "SPC 0200 1 CH3230000001876930777 K Swisscom (Schweiz) AG Alte Tiefenaustrasse 6 3050 Bern CH 320.55 CHF S IFOB GmbH Adligenswilerstr. 119 6006 Luzern CH QRR 000533882377025699530920229 Rechnungskonto: BSC:BAC:5338823 / Monat: 01.08.22 - 31.08.22 / Zahlbar bis: 29.09.2022 EPD";
BCSQRCodeEncodeCR(codestr, 1, 3, 0, 1)
Local stringVar codestr := "SPC 0200 1 CH3230000001876930777 K Swisscom (Schweiz) AG Alte Tiefenaustrasse 6 3050 Bern CH 320.55 CHF S IFOB GmbH Adligenswilerstr. 119 6006 Luzern CH QRR 000533882377025699530920229 Rechnungskonto: BSC:BAC:5338823 / Monat: 01.08.22 - 31.08.22 / Zahlbar bis: 29.09.2022 EPD";
BCSQRCodeEncodeCR(codestr, 2, 3, 0, 1)
Local stringVar codestr := "SPC 0200 1 CH3230000001876930777 K Swisscom (Schweiz) AG Alte Tiefenaustrasse 6 3050 Bern CH 320.55 CHF S IFOB GmbH Adligenswilerstr. 119 6006 Luzern CH QRR 000533882377025699530920229 Rechnungskonto: BSC:BAC:5338823 / Monat: 01.08.22 - 31.08.22 / Zahlbar bis: 29.09.2022 EPD";
BCSQRCodeEncodeCR(codestr, 3, 3, 0, 1)
Local stringVar codestr := "SPC 0200 1 CH3230000001876930777 K Swisscom (Schweiz) AG Alte Tiefenaustrasse 6 3050 Bern CH 320.55 CHF S IFOB GmbH Adligenswilerstr. 119 6006 Luzern CH QRR 000533882377025699530920229 Rechnungskonto: BSC:BAC:5338823 / Monat: 01.08.22 - 31.08.22 / Zahlbar bis: 29.09.2022 EPD";
BCSQRCodeEncodeCR(codestr, 4, 3, 0, 1)
Local stringVar codestr := "SPC 0200 1 CH3230000001876930777 K Swisscom (Schweiz) AG Alte Tiefenaustrasse 6 3050 Bern CH 320.55 CHF S IFOB GmbH Adligenswilerstr. 119 6006 Luzern CH QRR 000533882377025699530920229 Rechnungskonto: BSC:BAC:5338823 / Monat: 01.08.22 - 31.08.22 / Zahlbar bis: 29.09.2022 EPD";
BCSQRCodeEncodeCR(codestr, 5, 3, 0, 1)
Local stringVar codestr := "SPC 0200 1 CH3230000001876930777 K Swisscom (Schweiz) AG Alte Tiefenaustrasse 6 3050 Bern CH 320.55 CHF S IFOB GmbH Adligenswilerstr. 119 6006 Luzern CH QRR 000533882377025699530920229 Rechnungskonto: BSC:BAC:5338823 / Monat: 01.08.22 - 31.08.22 / Zahlbar bis: 29.09.2022 EPD";
BCSQRCodeEncodeCR(codestr, 6, 3, 0, 1)
Veuillez utiliser le signe dièse ( ) comme séparateur de données dans votre texte, comme indiqué ci-dessus.
Le 3ème paramètre est le niveau de correction d'erreur. Veuillez le régler sur 3 pour la tolérance aux pannes.
Le sixième paramètre dans le champ de formule est le commutateur du drapeau suisse. Réglez-le sur 1 pour générer un drapeau suisse au centre de votre QR Code.
5. Faites glisser le champ de formule QRCode vers votre rapport Crystal.
6. Clic droit champ de formule QRCode. Choisissez "Format du champ" dans le menu contextuel. Choisissez de police "BcsQRCodeSwissFlag".
Cliquez sur le bouton OK. Vous verrez le code à barres QRCode dans votre rapport.
