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。