在 MS Access 中生成 Code 39 条形码

适用于 Windows 桌面打印机的专业条形码解决方案。

code39 条形码下载 code 39 条形码图像 订购 code39 条形码软件

Code 39 是全球应用最广泛的条形码符号之一。它的实现非常简单：只需在数据前后加上星号（例如：*DATA*），然后应用 Barcodesoft 字体即可。通过将 Barcodesoft Code 39 软件包与 Microsoft® Access® 结合，您可以直接从桌面高效地打印专业条形码。

1 安装条形码字体

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

2 注册 DLL 组件

打开 DOS 命令提示符。如果您使用的是 Windows Vista、7、10 或 11，请务必以管理员身份运行。

CD C:\Program Files (x86)\Common Files\Barcodesoft\FontUtil
regsvr32 crUFLbcs.dll
code39 条形码
注册失败？ 请使用 .NET Framework 实用程序：Regtlibv12 _cruflbcs.tlb

3 配置 Access 安全性

确保已启用宏，以允许条形码生成器正常运行：

  • Access 2000/2003： 点击菜单“工具” > “安全性” > 设置为“启用所有宏”。
  • Access 2007+： 点击 Office 按钮 code 39 office > “Access 选项” > “信任中心” > “信任中心设置” > “宏设置” > 选择“启用所有宏”。
code 39 access 数据库

4 打开 VBA 编辑器

在 Access 中按下 Alt+F11 以启动 Visual Basic 编辑器。

code39 条形码

5 引用 DLL

在 VBA 编辑器中，选择菜单“工具” > “引用”。点击“浏览”并找到 cruflbcs.dll（通常位于第 2 步提到的 FontUtil 文件夹下）。勾选 crUFLBcs 1.0 Type Library，然后点击确定。

code39 条形码

6 导入条形码模块

按下 Ctrl+M，选择安装目录下的 barcodesoft.bas 文件。

code39 条形码 vba

用于生成 Code 39 的代码段：

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

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

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

7 创建 Access 报表

在报表设计视图中，将要显示条形码的字段的控件来源设置为以下宏之一：

  • =code39([表名.字段名])
  • =code39Check([表名.字段名])
  • =USSCode39([表名.字段名])
code39 条形码宏

8 最后一步：应用字体

右键单击该字段 > 选择“属性”。在“格式”选项卡下，将字体名称设置为 Code39mHr 或您偏好的 Barcodesoft 字体样式。

code39 条形码字体