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

在 Crystal Reports 中打印條碼的方法是什麼？

為 Crystal Reports 添加條碼主要有兩種方法：基於字體的方法和 SDK 解決方案。

基於字體的方法需要在字體文件夾中安裝特殊條碼字體（True Type 字體）並使用公式或用戶函數庫（UFL）來編碼數據。 雖然這種方法有效，但它通常涉及複雜的編碼公式、有限的條碼格式支持（例如 Code 39 或數據矩陣），以及在不同打印機和系統中的潛在字體渲染問題，正如Microsoft 的字體渲染文檔中所討論的。

基於 SDK 的解決方案提供了更強大的替代方案。這些庫以程序方式生成條碼圖像，提供更好的可靠性、廣泛的格式支持和更簡單的實施。 IronBarcode exemplifies this modern approach, allowing developers to 生成條碼作為圖像，通過標準數據庫字段或 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. 在 Field Explorer 中右鍵單擊 "Database Fields" 並選擇 "Database Expert"

3. 連接到您的數據庫並選擇包含條碼圖像的表
4. 將條碼圖像字段拖到報告設計界面上
5. 根據需要調整字段的大小和位置

您的報告設計器應如下圖所示：

為在報告運行時動態生成條碼，修改 DataTable 或數據庫查詢以動態生成條碼：

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 參數。 確保正確的數據集綁定。
• 數據類型問題：始終使用圖像或 varbinary(max) 字段存儲條碼二進制數據。
• 條碼未顯示：確保 Crystal Reports 檢視器具有對數據庫、DataTable 或文件資源的正確訪問權限。
• 系統問題：確保安裝所有必需的 DLL，並且您的項目引用了正確的 IronBarcode DLL。
• 字體或打印機問題：確認 True Type 字體已安裝在字體文件夾中並為您的打印機配置。

有關其他故障排除支持，請訪問 IronBarcode 故障排除指南。

結論

在 Crystal Reports 中使用 VB.NET 和 IronBarcode 實施條碼提供了一個可靠且簡單的報告增強解決方案。 這種基於 SDK 的方法消除了字體依賴性，同時提供了廣泛的自定義選項。 無論是使用數據庫還是 DataTable，您都可以在 Crystal Reports 應用程序中實施專業條碼，包括數據矩陣、Code 39 和其他格式。

立即通過下載IronBarcode 的免費試用版，在您的項目中開始實施條碼，以探索其在使用 VB.NET 打印 Crystal Reports 中的條碼方面的全部功能。