We respect your privacy and want to protect your privacy.
In order to comply with EU General Data Protection Regulation (GDPR), our website will display a form asking for your consent to save non-essential cookie to your browser. If you do NOT accept, only essential cookies will be sent to your browser, such as TempData and Session cookies. Learn More.
Erzeugen Sie PDF417 in einer Excel-Tabelle
Erzeugen Sie PDF417 in einer Excel-Tabelle
1. Herunterladen PDF417. Kopieren Sie die Datei bcsPDF417S.ttf in den Ordner "c:\Windows\fonts".
2. Öffnen Sie die DOS-Eingabeaufforderung als Administrator. Geben Sie die folgenden Befehle ein
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll
3. Starten Microsoft® Excel®.
Wenn Sie Access 2000 oder 2003 verwenden, klicken Sie auf das Menü ===> Tools ==> Macro ===> Security. Wählen Sie die Sicherheitsstufe Niedrig.
Wenn Sie Access 2007/2010/2013/2016/2019 verwenden, klicken Sie auf die Microsoft Office-Schaltfläche.
Klicken Sie auf Optionen ==> Vertrauensstellungscenter ==> Makroeinstellungen und wählen Sie "Alle Makros aktivieren".
4. Drücken Sie ALT + F11, um den Microsoft® Visual Basic-Editor zu öffnen.
5. Wählen Sie im Visual Basic-Editor das Menü Extras ===> Verweise. Es öffnet sich ein Dialog. Klicken Sie auf die Schaltfläche Durchsuchen, und wählen Sie aus dem 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil' -Ordner die Datei cruflbcs.dll aus.
Wählen Sie crUFLBcs 4.0. Klicken Sie dann auf die Schaltfläche OK.
6. Drücken Sie Strg + M, um ein Dialogfeld zu öffnen. Wählen Sie barcodesoft.bas im Ordner 'C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil'. Klicken Sie dann auf "Öffnen".
Sie können aus dem folgenden Codeausschnitt kopieren.
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. Schließen Sie Visual Basic. Kehren Sie zu Ihrer Excel-Tabelle zurück. Verwenden Sie das folgende Makro, um Daten zu codieren:
=PDF417(A1)
8. Klicken Sie mit der rechten Maustaste auf Zelle B1 und wählen Sie im Kontextmenü die Option "Zelle formatieren".
9. Wählen Sie BcsPDF417S als Schriftart.
10. Klicken Sie auf die Registerkarte Ausrichtung und wählen Sie "Text umbrechen".
11. OK klicken. Sie sehen PDF417 in Ihrer Excel-Tabelle. Zwischen den Zeilen des PDF417 besteht möglicherweise eine kleine Lücke. Sie können jedoch PDF417 drucken und scannen. Die True Type-Schriftart von bcsPDF417s reduziert die Lücke auf das Minimum.