生成 code39 条形码
无缝实现于 Crystal Reports、MS Excel 以及 MS Access
在 MS Excel 电子表格中生成 Code39 条形码
1. 初始化受信任的宏安全设置
适用于 Excel 2007 / 2010 / 2013 / 2016 / 2019 / 2021 / 2024 / 365： 点击 Office 菜单：文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置，勾选 “启用所有宏”。
旧版 Office (2000/2003)： 通过工具 → 宏 → 安全性，将其设置为“低”。
2. 启动 Visual Basic 窗口
同时按下 ALT + F11 键调出内置的 VBA 编辑器界面。
3. 建立库引用连接
在编辑器内，点击 工具 → 引用。在路径搜索窗口中，直接指向模块文件 cruflbcs.dll 的所在位置（通常位于 C:\Program Files (x86)\Common Files\Barcodesoft\Fontutil 目录文件夹下）。请务必勾选并确认选择 crUFLBcs 5.0 Type Library。
4. 导入自动化模块宏
按下 Ctrl + M 打开文件导入对话框。从上述实用程序路径中选择 barcodesoft.bas 文件的布局组件。如果缺少该文件，请通过压缩包链接 cruflbcs.zip 获取包源。
5. 实现列公式配置
关闭 Visual Basic 设计编辑器，将焦点返回到电子表格的工作区网格面板。通过标准的单元格引用语法在所需的工作簿行中执行处理表达式：
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
关闭 Visual Basic 编辑器并返回 Excel。现在，您可以使用以下宏进行数据编码：code39。当您有大量数据需要处理时，只需将该宏复制粘贴到整列，所有数据就会立即完成编码。
6. 设置 code39 条形码字体样式属性
右键单击目标输出引用单元格（例如 B1），选择 “设置单元格格式” 属性。在“字体”设置选项卡的布局映射选项下，选择匹配到 UpcEanM 的字体标识名称。确保字体样式设置为 常规，并将 下划线 设置为 无。
点击“确定”，您现在应该就能够在 Excel 电子表格中看到 code39 条形码了。
该软件包包含 14 种具有不同大小和样式的 TrueType 字体：
带用户可读文本：Code39XXL, Code39XL, Code39L, Code39M, Code39S, Code39XS 和 Code39XXS；
不带用户可读文本：Code39XXL, Code39XL, Code39L, Code39M, Code39S, Code39XS 和 Code39XXS。
每种字体都设计有不同的长宽比，以便您选择最适合您应用需求的字体。