在 MS Access 中生成 Code 39 條碼

適用於 Windows 桌面印表機 pores 的專業條碼解決方案。

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

註冊失敗？ 請使用 .NET Framework 公用程式：Regtlibv12 _cruflbcs.tlb

3 配置 Access 安全性

確保已啟用巨集，以允許條碼產生器正常運作：

Access 2000/2003： 點擊選單「工具」 > 「安全性」 > 設定為「啟用所有巨集」。
Access 2007+： 點擊 Office 按鈕 > 「Access 選項」 > 「信任中心」 > 「信任中心設定」 > 「巨集設定」 > 選擇「啟用所有巨集」。

4 開啟 VBA 編輯器

在 Access 中按下 Alt+F11 以啟動 Visual Basic 編輯器。

5 引用 DLL

在 VBA 編輯器中，選擇選單「工具」 > 「引用」。點擊「瀏覽」並找到 cruflbcs.dll（通常位於第 2 步提到的 FontUtil 資料夾下）。勾選 crUFLBcs 1.0 Type Library，然後點擊確定。

6 匯入條碼模組

按下 Ctrl+M，選擇安裝目錄下的 barcodesoft.bas 檔案。

用於生成 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([表名.欄位名])

8 最後一步：應用字型

右鍵單擊該欄位 > 選擇「屬性」。在「格式」索引標籤下，將字型名稱設定為 Code39mHr 或您偏好的 Barcodesoft 字型樣式。