EAN13 Barcode Font

キーワード: EAN 13, EAN 8, Japanese Article Number (JAN)

国際物品番号（欧州物品番号またはEANとも呼ばれる）は、小売業で製品の製造元とモデルを指定するために使用されるバーコード記号です。 EAN-13とそのバリエーションEAN-8は、今日最も広く使用されているEANです。

2桁の国コードと5桁のメーカーコード、5桁の製品コード、およびチェックディジットがEAN13バーコードを構成します。

先頭の2桁の国コードが45または49の場合、このバーコードは日本の記事番号（JAN）です。

より小さな製品パッケージでは、8桁のEAN8バーコードを使用します。

メーカーの希望小売価格を示すために、人々は2桁または5桁の補助バーコードを「EAN13」バーコードの右側に配置します。

EAN13バーコードフォントのマッピングテーブルは次のとおりです。

Crystal Reportsから EAN13を印刷する

1. オープンクリスタルレポート。式フィールドを右クリックして、コンテキストメニューから[新規作成...]を選択します。

[名前]テキストボックスに「EAN13」と入力し、[OK]をクリックします。



2. 関数 ==> その他の機能 ==> COM および .NET UFL (u212com.dll)、 "BCSLinearEAN13"機能を選択します。


3. EAN13式のパラメータとしてデータベースフィールドに入力します。 「保存して閉じる」ボタンをクリックしてください。

4. EAN13式フィールドをあなたの水晶の報告書にドラッグしてください。あなたはいくつかの16進数コードを見るでしょう。 心配しないで！ あなたはまだフォントを使っていません。



5. [EAN13]式フィールドを右クリックします。 コンテキストメニューから[フィールドの書式]を選択します。 それからフォントとして "UpcEanM"を選択してください。



6. OKボタンをクリックしてください。 レポートに EAN13と表示されます。

MS Excelスプレッドシートで EAN13を生成

1. ダウンロード Excel用 'EAN13'.
TrueTypeフォント「UpcEanM.ttf」を「c：\ Windows \ Fonts」フォルダにコピーします。

2. 管理者としてDOSプロンプトを開きます。 以下のコマンドを入力して、「cruflbcs.dll」を登録します。

CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll



3. Microsoft® Excel®を起動します。

Excel 2000またはExcel 2003を使用している場合は、[メニュー] ===> [ツール] ==> [マクロ] ===> [セキュリティ]の順にクリックします。 低セキュリティレベルを選択します。


Excel 2007/2010/2013/2016/2019を使用している場合は、Microsoft Officeボタンをクリックしてください。

[オプション] => [セキュリティセンター] ==> [マクロの設定]の順にクリックし、[すべてのマクロを有効にする]を選択します。



4. Alt + F11キーを押してMicrosoft®Visual Basic Editorを開きます。


5. Visual Basicエディタから、メニューツール===>参照を選択します。 ダイアログがポップアップします。 [参照]ボタンをクリックし、 'C：¥Program File¥CommonFiles¥Barcodesoft¥Fontutil'フォルダからcruflbcs.dllを選択します。 crUFLBcs 4.0を選択してください。 そしてOKボタンをクリックしてください。



6. Ctrl + Mを押します。 ダイアログがポップアップします。 C：¥Program File¥CommonFiles¥Barcodesoft¥Fontutil フォルダの下のbarcodesoft.basを選択します。 次に「開く」をクリックします。



下記のコードスニペットからコピーすることもできます。

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. Visual Basicを閉じて、Excelスプレッドシートに戻ります。 次のマクロを使用してデータをエンコードしてください。EAN13。 処理するデータがたくさんある場合は、マクロを列/行全体にコピーするだけで済みます。 すべての EAN13はすぐに準備ができています。

=EAN13(xx)

=EAN8(xx)

ヒント：UPCコードがゼロで始まる場合、ExcelセルのUPCコードの最初のゼロの前にアポストロフィ（ '）を入力してください。 それ以外の場合、UPCコードの最初のゼロはExcelによって省略されます。



8. セルB1を右クリックして、コンテキストメニューからセルの書式設定を選択します。
フォントタブをクリックして、フォントとしてUpcEanMを選択します。


9. OKをクリックしてください。 ExcelのスプレッドシートにEAN13と表示されます。 EAN13の行の間に小さな隙間があるかもしれません。 ただし、UpcEanM TrueTypeフォントはこのギャップを最小限に抑えるように設計されているため、 EAN13を印刷してスキャンしても問題にはなりません。

MS Accessデータベースで EAN13を生成します

Barcodesoftの EAN13ソフトウェアを使えば、MS Accessデータベースに EAN13を簡単に印刷できます。

1. あなたのコンピュータに EAN13デモをインストールしてください。

2. 管理者としてDOSプロンプトを開きます。 以下のコマンドを入力して、「cruflbcs.dll」を登録します。

CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll



3. Microsoft®Access®を起動します。

Access 2000またはAccess 2003を使用している場合は、[メニュー] ===> [ツール] ==> [マクロ] ===> [セキュリティ]の順にクリックします。 低セキュリティレベルを選択します。


Access 2007/2010/2013/2016/2019を使用している場合は、Microsoft Officeボタンをクリックしてください。

[オプション] => [セキュリティセンター] ==> [マクロの設定]の順にクリックし、[すべてのマクロを有効にする]を選択します。



4. Alt + F11キーを押してMicrosoft®Visual Basic Editorを開きます。


5. Visual Basicエディタから、メニューツール===>参照を選択します。 ダイアログがポップアップします。 [参照]ボタンをクリックし、 'C：¥Program File¥CommonFiles¥Barcodesoft¥Fontutil'フォルダからcruflbcs.dllを選択します。 crUFLBcs 4.0を選択してください。 そしてOKボタンをクリックしてください。



6. Ctrl + Mを押します。 ダイアログがポップアップします。 C：¥Program File¥CommonFiles¥Barcodesoft¥Fontutil フォルダの下のbarcodesoft.basを選択します。 次に「開く」をクリックします。



下記のコードスニペットからコピーすることもできます。

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. Visual Basicを閉じてAccessデータベースに戻ります。 テキストボックスを作成します。 その制御元にこのマクロを入力します。
=EAN13([data.code])

=EAN8([data.code])

'data'はデータベースのテーブル名、 'code'はデータベースのフィールド名です。



8. テキストボックスを右クリックします。 コンテキストメニューから[プロパティ]を選択します。 フォントとしてUpcEanMを選択してください。



MicrosoftおよびOfficeのロゴは、米国Microsoft Corporationの米国およびその他の国における商標または登録商標です。