• 
• 

Erzeugen Sie gs1-Databar barcode in einer Excel-Tabelle

1. Installieren Sie die gs1-Databar-Demo auf Ihrem Computer.

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 ==> makro ===> 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 Databar14(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
Databar14 = obj.Databar14(strToEncode)
Set obj = Nothing
End Function

Public Function DatabarStk(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarStk = obj.DatabarStack(strToEncode)
Set obj = Nothing
End Function

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

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

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

Public Function DatabarExpStk(strToEncode As String) As String
Dim obj As cruflBCS.CDatabar
Set obj = New cruflBCS.CDatabar
DatabarExpStk = obj.DatabarExpStk(strToEncode)
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:

=databar14(A1)



8. Wählen Sie BcsDatabarM als Schriftart.


9. OK klicken. Sie sehen gs1-Databar barcode in Ihrer Excel-Tabelle.

• 
•