UPC-A條碼今天无处不在。
零售商使用“通用产品代码”(UPC)来识别商店中的产品。 在不同零售店销售的相同产品共享相同的UPC。
UPC的前导数字称为“数字系統”。 UPC的后五位数字称为“制造商代码”。 然后另外五位数字称为“产品代码”。 最后一位是校验位。
UPCA条形码编码11位数字加上校验位。 UPC-A可以被认为是EAN13的子集,第一位的数字系統设置为零。
UPC-A编码的内容也称为GTIN12。
UPCE编码八位数數據和一个校验位。 UPCE编码的内容也称为GTIN8。
这是Barcodesoft UPCA条形码字體的映射表:
字符 | 映射 | 字符 | 映射 |
---|---|---|---|
Start | [ | Stop | ] |
Supplement Start | { | Supplement Stop | } |
Central Guard | | | Supplement Separator | \ |
Text Only | 0xE0 - 0xE9 | UPCE Stop Character | ' |
Lefthand B with HR | PQWERTYUIO | Lefthand B without HR | pqwertyuio |
Righthand with HR | :ASDFGHJKL | Righthand without HR | ;asdfghjkl |
Lefthand A with HR above | /zxcvbnm,. | Lefthand B with HR above | ?ZXCVBNM<> |
Lefthand A with HR below | 0123456789 | Lefthand A without HR below | ~!#&40;#$%^&*(<> |
宽高比 | 字體 |
---|---|
XS | UPCEANXS |
S | UPCEANS |
M | UPCEANM |
L | UPCEANL |
XL | UPCEANXL |
XXL | UPCEANXXL |
許可版本 | 單用戶版 | 五用戶版 | 十用戶版 | 現場許可證 | 公司版 | 開發者版 | 五開發者版 | 十開發者版 | 無限制開發者版 |
---|---|---|---|---|---|---|---|---|---|
價格 | CAD159 | CAD299 | CAD399 | CAD599 | CAD799 | CAD999 | CAD1199 | CAD1399 | CAD1999 |
安装了 Barcodesoft UPCA 條碼 软件之后, 可以轻松地在 Microsoft® Access® 中列印 UPCA 條碼。
1. 在電腦上安装展示版本Barcodesoft UPCA 條碼 软件。
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, 请从这里下載 UPCA 條碼。
你也可以复制以下的VBA代码片断
Public Function UPCA(strToEncode As String) As String
Dim obj As cruflBCS.CLinear
Set obj = New cruflBCS.CLinear
UPCA = obj.UPCA(strToEncode)
Set obj = Nothing
End Function
7. 关闭 Visual Basic 回到 Access 資料庫。在设计模式下创建一个文本框。然后在其控制源中输入以下宏命令:
=UPCA([data.code])
请注意以上宏命令中 'data' 是資料庫中表的名字,'code'是字段的名字。
8. 右键点击文本框点。从上下文菜单中选择属性。将UpcEanM设置为字體。閣下的資料庫报告中就会出现UPCA 條碼。
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家/地区的商标或注册商标。