EAN13 Barcode

Schlüsselwörter: EAN 13, EAN 8, Japanese Article Number (JAN)

Die International Article Number (auch als European Article Number oder EAN bezeichnet) ist eine Barcode-Symbologie, mit der im Einzelhandel der Hersteller und das Modell eines Produkts angegeben werden. EAN-13 und seine Variante EAN-8 ist heute die am weitesten verbreitete EAN barcode.

Ein zweistelliger Ländercode plus ein fünfstelliger Herstellercode plus ein fünfstelliger Produktcode plus eine Prüfziffer bilden einen EAN13-Barcode.

Wenn der führende zweistellige Ländercode 45 oder 49 ist, handelt es sich bei diesem Barcode um eine japanische Artikelnummer (JAN).

Kleinere Produktverpackungen verwenden den 8-stelligen EAN8-Barcode.

Zur Anzeige des vom Hersteller empfohlenen Verkaufspreises wird rechts neben einem EAN13-Barcode ein 2-stelliger oder ein 5-stelliger zusätzlicher Barcode angegeben.

Hier ist die Zuordnungstabelle der EAN13-Barcode-Schriftart

Generieren Sie in Crystal Reports EAN13

1. Starten crystal report. Klicken Sie mit der rechten Maustaste auf Formelfelder und wählen Sie "Neu ..." aus dem Kontextmenü.

Geben Sie "EAN13" in das Textfeld Name ein. Klicken "Speichern und schließen".



2. Wählen Sie in "Funktionen ==> Zusätzliche Funktionen ==> COM und .NET -UFLs (u212com.dll)" die Funktion "BCSLinearEAN13" aus.



3. Geben Sie das Datenbankfeld als Parameter für die EAN13 barcode-Formel ein. Klicken Sie auf die Schaltfläche "Speichern".

4. Ziehen Sie das EAN13-Formelfeld in Ihren Kristallbericht.



5. Klicken Sie mit der rechten Maustaste auf das EAN13-Formelfeld. Wählen Sie "Formatfeld" aus dem Kontextmenü. Wählen Sie dann die Schriftart "UpcEanM".



Klicken Sie auf OK. In Ihrem Bericht wird EAN13 angezeigt.

Erzeugen Sie EAN13 barcode in einer Excel-Tabelle

1. Installieren Sie die EAN13-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 ==> 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 EAN13(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
EAN13 = obj.EAN13(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:

=EAN13(A1)

=EAN8(A1)



8. Wählen Sie UpcEanM als Schriftart.


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

Generieren Sie EAN13 barcode in MS Access-Datenbank

Mit Barcodesoft EAN13 barcode-Software können EAN13 einfach in Microsoft® Access® gedruckt werden.

1. Installieren Sie EAN13 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® Access®.

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

7. Schließen Sie Visual Basic und kehren Sie zu Ihrer Access-Datenbank zurück. Erstellen Sie ein Textfeld in der Entwurfsansicht und geben Sie das folgende Makro in die Steuerelementquelle ein:
=EAN13([data.code])

=EAN8([data.code])

Beachten Sie, dass 'Daten' der Tabellenname ist, 'Code' der Feldname.



8. Klicken Sie mit der rechten Maustaste auf das Textfeld. Wählen Sie Eigenschaften aus dem Kontextmenü. Übernehmen Sie UpcEanM als Schriftart.



Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.