如何使用VB.NET在Crystal Reports中打印條碼

Crystal Reports中列印條碼的方法有哪些？

在 Crystal Reports 新增條碼主要有兩種方法：基於字型的方法和 SDK 解決方案。

基於字型的方法需要在字型資料夾中安裝特殊的條碼字型（True Type 字型），並使用公式或使用者函數庫 (UFL) 對資料進行編碼。 雖然這種方法有效，但它通常涉及複雜的編碼公式、有限的條碼格式支援（例如 Code 39 或資料矩陣），以及在不同印表機和系統上可能出現的字體渲染問題，正如微軟關於字體渲染的文檔中所討論的那樣。

基於 SDK 的解決方案提供了更強大的替代方案。這些函式庫以程式設計方式產生條碼影像，具有更高的可靠性、更廣泛的格式支援和更簡便的實現方式。 IronBarcode正是這種現代方法的典範，它允許開發人員產生條碼影像，並透過標準資料庫欄位或 DataTable 物件與 Crystal Reports 無縫整合。 此方法可確保在所有平台上呈現一致的效果，並消除使用 VB.NET 在 Crystal Report 中列印條碼時出現的字體依賴性問題。

如何在VB.NET設定IronBarcode？

在 VB.NET 專案中設定 IronBarcode 只需要極少的配置。 首先，透過 NuGet 套件管理器安裝庫，執行以下命令：

Install-Package BarCode

或者，您可以使用 Visual Studio 中的套件管理器 UI 搜尋並安裝"IronBarcode"。 安裝完成後，在VB.NET程式碼中匯入命名空間：

Imports IronBarCode

Imports IronBarCode

請確保您的專案是為 .NET Framework 4.0 或更高版本，或任何版本的 .NET Core/.NET 5+。 IronBarcode 可與所有支援影像欄位的 Crystal Reports 版本搭配使用，因此與現有專案具有廣泛的相容性。 有關詳細的設定說明，請參閱 IronBarcode 文件。

立即下載 IronBarcode，開始在 Crystal Reports 中建立專業條碼。

如何產生條碼並將其儲存在資料庫中？

使用 IronBarcode 建立條碼並將其儲存到 Crystal Reports 中，需要產生條碼影像，並使用新的 OleDbConnection 或 SqlConnection 將其儲存到資料庫中。 以下是一個完整的範例：

Imports IronBarCode
Imports System.Data.SqlClient
Module BarcodeGenerator
    Sub CreateAndStoreBarcode()
        ' Generate a Code128 barcode
        Dim myBarcode = BarcodeWriter.CreateBarcode("PROD-12345", BarcodeWriterEncoding.Code128)
        ' Add readable text below the barcode
        myBarcode.AddBarcodeValueTextBelowBarcode()
        ' Resize to appropriate dimensions and adjust font size
        myBarcode.ResizeTo(400, 150)
        ' Connect to your database (example uses connection string)
        Using connection As New SqlConnection("YourConnectionString")
            ' SQL command to post barcode data
            Dim cmd As New SqlCommand("INSERT INTO Products (ProductCode, BarcodeImage) VALUES (@Code, @Image)", connection)
            ' Add parameters
            cmd.Parameters.AddWithValue("@Code", "CUSTOMER-12345")
            cmd.Parameters.AddWithValue("@Image", myBarcode.BinaryStream)
            ' Execute the command
            connection.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Sub
End Module

Imports IronBarCode
Imports System.Data.SqlClient
Module BarcodeGenerator
    Sub CreateAndStoreBarcode()
        ' Generate a Code128 barcode
        Dim myBarcode = BarcodeWriter.CreateBarcode("PROD-12345", BarcodeWriterEncoding.Code128)
        ' Add readable text below the barcode
        myBarcode.AddBarcodeValueTextBelowBarcode()
        ' Resize to appropriate dimensions and adjust font size
        myBarcode.ResizeTo(400, 150)
        ' Connect to your database (example uses connection string)
        Using connection As New SqlConnection("YourConnectionString")
            ' SQL command to post barcode data
            Dim cmd As New SqlCommand("INSERT INTO Products (ProductCode, BarcodeImage) VALUES (@Code, @Image)", connection)
            ' Add parameters
            cmd.Parameters.AddWithValue("@Code", "CUSTOMER-12345")
            cmd.Parameters.AddWithValue("@Image", myBarcode.BinaryStream)
            ' Execute the command
            connection.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Sub
End Module

Imports IronBarCode
Imports System.Data
Function CreateBarcodeDataTable() As DataTable
    Dim dt As New DataTable()
    dt.Columns.Add("ProductCode", GetType(String))
    dt.Columns.Add("Barcode", GetType(Byte()))
    ' Add table row for each product
    Dim row As DataRow = dt.NewRow()
    row("ProductCode") = "PROD-12345"
    ' Create barcode on-the-fly and convert to binary
    Dim barcode = BarcodeWriter.CreateBarcode("CUSTOMER-12345", BarcodeWriterEncoding.Code128)
    barcode.AddBarcodeValueTextBelowBarcode()
    barcode.ResizeTo(400, 150)
    row("Barcode") = barcode.BinaryStream
    dt.Rows.Add(row)
    Return dt
End Function

Imports IronBarCode
Imports System.Data
Function CreateBarcodeDataTable() As DataTable
    Dim dt As New DataTable()
    dt.Columns.Add("ProductCode", GetType(String))
    dt.Columns.Add("Barcode", GetType(Byte()))
    ' Add table row for each product
    Dim row As DataRow = dt.NewRow()
    row("ProductCode") = "PROD-12345"
    ' Create barcode on-the-fly and convert to binary
    Dim barcode = BarcodeWriter.CreateBarcode("CUSTOMER-12345", BarcodeWriterEncoding.Code128)
    barcode.AddBarcodeValueTextBelowBarcode()
    barcode.ResizeTo(400, 150)
    row("Barcode") = barcode.BinaryStream
    dt.Rows.Add(row)
    Return dt
End Function

如何在 Crystal Reports 中顯示條碼？

條碼儲存到資料庫後，在 Crystal Reports 中顯示它們遵循標準影像欄位程式：

1. 開啟 Crystal Reports，建立一個新報表或開啟一個現有報表。

2. 在欄位資源管理器中，以滑鼠右鍵按一下"資料庫欄位"，然後選擇"資料庫專家"。

   如何在 VB.NET 的 Crystal Reports 中列印條碼：圖 1 - 資料庫專家窗口

3. 連接到資料庫並選擇包含條碼圖像的表。
4. 將條碼影像欄位拖曳到報表設計介面上。
5. 根據需要調整欄位大小和位置

您的報表設計器應該與此類似：

如何在 VB.NET 的 Crystal Reports 中列印條碼：圖 2 - 報表設計器佈局

若要在報表執行時動態產生條碼，請修改您的資料表或資料庫查詢，以便即時產生條碼：

Function GetReportData() As DataTable
    Dim dt As New DataTable()
    dt.Columns.Add("ProductCode", GetType(String))
    dt.Columns.Add("Barcode", GetType(Byte()))
    ' Add table row
    Dim row As DataRow = dt.NewRow()
    row("ProductCode") = "CUSTOMER-12345"
    ' Create barcode on-the-fly and convert to binary
    Dim barcode = BarcodeWriter.CreateBarcode("CUSTOMER-12345", BarcodeWriterEncoding.Code128)
    row("Barcode") = barcode.BinaryStream
    dt.Rows.Add(row)
    Return dt
End Function

Function GetReportData() As DataTable
    Dim dt As New DataTable()
    dt.Columns.Add("ProductCode", GetType(String))
    dt.Columns.Add("Barcode", GetType(Byte()))
    ' Add table row
    Dim row As DataRow = dt.NewRow()
    row("ProductCode") = "CUSTOMER-12345"
    ' Create barcode on-the-fly and convert to binary
    Dim barcode = BarcodeWriter.CreateBarcode("CUSTOMER-12345", BarcodeWriterEncoding.Code128)
    row("Barcode") = barcode.BinaryStream
    dt.Rows.Add(row)
    Return dt
End Function

這種方法在報表載入時動態產生條碼，無需預先將影像儲存在資料庫中。 您也可以使用 Crystal Reports 的匯出功能將報表轉換為 PDF 格式。 有關 Crystal Reports 資料來源的更多信息，請參閱SAP 的 Crystal Reports 文件。

常見問題及解決方法有哪些？

在使用VB.NET在Crystal Reports中實作條碼時，可能會出現以下幾個問題：

*條碼模糊：*使用 myBarcode.ResizeTo() 增大尺寸以提高解析度。 掃描問題：確保條碼周圍有足夠的空白，或在 Code 39 條碼上加上星號標記。 資料庫連線問題：檢查您的新 OleDbConnection 或新 OleDbDataAdapter 參數。 確保資料集綁定正確。 資料類型問題：始終使用 image 或 varbinary(max) 欄位來儲存條碼二進位資料。 條碼不顯示：請驗證 Crystal Reports 檢視器是否具有存取資料庫、資料表或檔案資源的適當權限。 系統問題：**確保所有必要的 DLL 都已安裝，並且您的專案引用了正確的 IronBarcode DLL。 *字型或印表機問題：確認 TrueType 字型已安裝在字型資料夾中，並已針對您的印表機進行設定。

如需更多故障排除支持，請造訪IronBarcode 故障排除指南。

結論

使用 VB.NET 和 IronBarcode 在 Crystal Reports 中實作條碼，可為報表增強功能提供可靠且直接的解決方案。 這種基於 SDK 的方法消除了對字體的依賴，同時提供了廣泛的自訂選項。 無論使用資料庫或資料表，您都可以在 Crystal Reports 應用程式中實作專業的條碼，包括資料矩陣、Code 39 和其他格式。

立即下載IronBarcode 的免費試用版，開始在您的專案中實施條碼，探索其使用 VB.NET 在 Crystal Reports 中列印條碼的全部功能。