Microsoft Access Code 128 & GS1-128 条形码指南

使用 Barcodesoft 高密度字体，轻松将专业的条形码打印功能集成到您的 Access 数据库中。

Code 128 是一种在全球范围内广泛用于物流和库存的高密度字母数字码制。由于 Code 128 必须进行 校验和计算 (Checksum)，直接通过字体打印需要辅助函数支持。 Barcodesoft 提供完善的字体包和 VBA 工具，确保在任何 Windows 计算机上都能实现无缝集成。

安装 TrueType 字体

将软件包中 fonts 文件夹下的所有 TrueType 字体文件 (*.ttf) 复制到 C:\Windows\Fonts 目录。

注册编码器 DLL

以管理员身份打开命令提示符 (DOS)，并切换到工具文件夹目录：

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

如果注册失败，请使用 .NET Framework 工具：Regtlibv12 _cruflbcs.tlb

配置 Access 宏安全性

确保已启用宏，以便运行条形码函数。在 Access 2007 或更高版本中，进入 信任中心设置 并将宏设置改为 “启用所有宏”。

在 VBA 中添加 DLL 引用

按下 Alt+F11 打开 Visual Basic 编辑器。选择菜单 工具 > 引用，点击浏览按钮，从 FontUtil 文件夹中选择 cruflbcs.dll。

导入 VBA 模块

按下 Ctrl+M 并导入 barcodesoft.bas。确保您的模块包含以下函数逻辑：

Public Function GS1128(ByVal strToEncode As String) As String
    Dim obj As cruflBCS.CLinear
    Set obj = New cruflBCS.CLinear
    GS1128 = obj.UCCEAN128(strToEncode)
    Set obj = Nothing
End Function

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

在报表中显示条形码

以设计视图创建或打开报表。
在字段的控件来源中输入宏命令（例如：=Code128B([表名].[字段名])）。
右键单击该字段，选择属性，并将字体设置为对应的字体名称，如 code128amHr。