国际商品编号(也称为欧洲商品编号或EAN)是一种条形码符号,用于零售业务以指定产品的制造商和型号。 EAN-13及其变体EAN-8是当今使用最广泛的EAN条形码。
2位数的国家/地区代码加上5位数的制造商代码,再加上5位数的产品代码,再加上校验位,组成了EAN13条码。
当前两位数字的国家/地区代码为45或49时,此条形码为日本商品编号(JAN)。
较小的产品包装使用8位EAN8条形码。
为了显示制造商的建议零售价,人们在EAN13条形码的右侧放置了一个2位数或5位数的补充条形码。
这是EAN13条形码字体的映射表
字符 | 映射 | 字符 | 映射 |
---|---|---|---|
开始 | [ | 结束 | ] |
补充开始 | { | 补充结束 | } |
中部分界 | | | 补充分界 | \ |
纯文本 | 0xE0 - 0xE9 | UPCE 结束字符 | ' |
左手 B 带人眼可读字符 | PQWERTYUIO | 左手 B 不带人眼可读字符 | pqwertyuio |
右手带人眼可读字符 | :ASDFGHJKL | 右手不带人眼可读字符 | ;asdfghjkl |
左手 A 上方带人眼可读字符 | /zxcvbnm,. | 左手 B 上方带人眼可读字符 | ?ZXCVBNM<> |
左手 A 下方带人眼可读字符 | 0123456789 | 左手 A 下方不带人眼可读字符 | ~!#&40;#$%^&*(<> |
宽高比 | 字体 |
---|---|
XS | UPCEANXS |
S | UPCEANS |
M | UPCEANM |
L | UPCEANL |
XL | UPCEANXL |
XXL | UPCEANXXL |
许可版本 | 单用户版 | 五用户版 | 十用户版 | 站点许可证 | 公司版 | 开发者版 | 五开发者版 | 十开发者版 | 无限制开发者版 |
---|---|---|---|---|---|---|---|---|---|
价格 | CAD159 | CAD299 | CAD399 | CAD599 | CAD799 | CAD999 | CAD1199 | CAD1399 | CAD1999 |
按照以下步骤,阁下可以轻松在水晶报表中打印EAN13。
1. 打开水晶报表。 右键单击“公式字段”,从上下文菜单中选择“新建...”。
在公式字段的名字框中输入"EAN13",然后点击OK按钮。
2. 从 函数列表==> Additional Functions ==> COM and .NET UFLs (u212com.dll) ==> Visual Basic UFLs, 双击并且选择 "BCSLinearEAN13" 函数。
将数据库字段名作为参数输入 EAN13 公式中。点击保存按钮。如下所示。
3. 在报表中加入一个文本对象。然后将多个公式字段依次拖到你的水晶报表中的文本对象内。阁下会看见一些十六进制的代码。不要担心!因为还没有使用字体。
4. 右键点击文本对象,从上下文菜单中选择“格式字段”。然后选择“UpcEanM”作为字体。
5. 点击OK按钮。你就会看见报表中出现EAN13 条码。
1. 首先下载并且安装EAN13演示版。
2. 以系统管理员的身份打开 DOS 提示符。
输入以下命令来登记 crUFLbcs.dll。
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll
3. 启动 Microsoft® Excel®。
如果阁下使用 Excel 2000 或者 2003, 请点击菜单===> 工具 ==> 宏 ===> 安全性。 选择低安全级别。
如果阁下使用 Excel 2007 / 2010 / 2013 / 2016 / 2019, 请点击 Microsoft Office 按钮。
然后点击选项 ==> 信任中心 ==> 宏命令设置, 选择 "允许所有宏"。如下所示。
4. 按 ALT + F11 打开 Microsoft® Visual Basic 编辑器。
5. Visual Basic 编辑器中, 选择菜单工具 ===> 参考。 会谈处一个对话框。 点击浏览按钮, 然后从以下目录中选择 cruflbcs.dll
C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil。
选择对 crUFLBcs 4.0 添加参考。然后点击 OK 按钮。
6. 按 Ctrl+M, 会弹出一个对话框, 从以下目录上选择 barcodesoft.bas
C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil 。然后点击 "打开"。
7. 关闭 Visual Basic 回到 Excel 电子表格。在设计模式下创建一个文本框。然后在其控制源中输入以下宏命令: EAN13。当你有很多数据要处理的时候,你可以把这个宏命令复制到整行整列。所有的数据会被立刻编码成EAN13。
=EAN13(xx)
=EAN8(xx)
8. 右键点击单元格B1。从上下文菜单中选择属性。然后将UpcEanM设置为字体。如下所示。
9. 点击OK按钮。阁下的电子表格中就会出现EAN13 条码。
安装了 Barcodesoft EAN13 条码 软件之后, 可以轻松地在 Microsoft® Access® 中打印 EAN13 条码。
1. 在电脑上安装演示版Barcodesoft EAN13 条码 软件。
2. 以系统管理员的身份打开 DOS 提示符。
输入以下命令来登记 crUFLbcs.dll。
CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll
3. 启动 Microsoft® Access®.
如果阁下使用 Access 2000 或者 2003, 请点击菜单===> 工具 ==> 宏 ===> 安全性。 选择低安全级别。
如果阁下使用 Access 2007 / 2010 / 2013 / 2016 / 2019, 请点击 Microsoft Office 按钮。
然后点击选项 ==> 信任中心 ==> 宏命令设置, 选择 "允许所有宏"。如下所示。
4. 按 ALT + F11 打开 Microsoft® Visual Basic 编辑器。
5. Visual Basic 编辑器中, 选择菜单工具 ===> 参考。 会谈处一个对话框。 点击浏览按钮, 然后从以下目录中选择 cruflbcs.dll
C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil。
选择对 crUFLBcs 4.0 添加参考。然后点击 OK 按钮。
6. 按 Ctrl+M, 会弹出一个对话框, 从以下目录上选择 barcodesoft.bas
C:\Program File (x86)\CommonFiles\Barcodesoft\Fontutil 。然后点击 "打开"。
如果阁下没有 barcodesoft.bas, 请从这里下载 EAN13 条码。
你也可以复制以下的VBA代码片断
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设置为字体。阁下的数据库报告中就会出现EAN13 条码。
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家/地区的商标或注册商标。