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

IronBarcode支持哪些.NET版本？

IronBarcode目標支持廣泛的.NET執行環境：

• .NET Framework 4.6.2及以上版本
• .NET Core 3.1+
• .NET 5，6，7，8，9
• .NET Standard 2.0+

這種廣泛的相容性意味著您可以輕鬆地將IronBarcode整合到運行於.NET Framework上的傳統VB.NET應用程式以及目標使用.NET 8或更高版本的現代應用程式中。 請查看IronBarcode相容性文件以獲取完整的支持矩陣。

選項1：使用SQL資料庫

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
        myBarcode.ResizeTo(400, 150)
        ' Connect to your database
        Using connection As New SqlConnection("YourConnectionString")
            Dim cmd As New SqlCommand(
                "INSERT INTO Products (ProductCode, BarcodeImage) VALUES (@Code, @Image)",
                connection)
            cmd.Parameters.AddWithValue("@Code", "PROD-12345")
            cmd.Parameters.AddWithValue("@Image", myBarcode.BinaryStream)
            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
        myBarcode.ResizeTo(400, 150)
        ' Connect to your database
        Using connection As New SqlConnection("YourConnectionString")
            Dim cmd As New SqlCommand(
                "INSERT INTO Products (ProductCode, BarcodeImage) VALUES (@Code, @Image)",
                connection)
            cmd.Parameters.AddWithValue("@Code", "PROD-12345")
            cmd.Parameters.AddWithValue("@Image", myBarcode.BinaryStream)
            connection.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Sub
End Module

此範例生成Code 128條碼並將其作為二進制資料儲存在SQL Server中。 AddBarcodeValueTextBelowBarcode()方法在條碼符號下方新增可讀文字，使它既可用於掃描又可用於目視檢查。 ResizeTo()方法調整尺寸以適應您的報告佈局。

選項2：使用DataTable

對於不需要持久儲存的情況，DataTable方法完全避免使用資料庫：

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()))

    ' Generate a barcode for each product
    Dim row As DataRow = dt.NewRow()
    row("ProductCode") = "PROD-12345"

    Dim barcode = BarcodeWriter.CreateBarcode("PROD-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()))

    ' Generate a barcode for each product
    Dim row As DataRow = dt.NewRow()
    row("ProductCode") = "PROD-12345"

    Dim barcode = BarcodeWriter.CreateBarcode("PROD-12345", BarcodeWriterEncoding.Code128)
    barcode.AddBarcodeValueTextBelowBarcode()
    barcode.ResizeTo(400, 150)
    row("Barcode") = barcode.BinaryStream

    dt.Rows.Add(row)
    Return dt
End Function

此DataTable方法適用於報告預覽、一次性列印作業或資料庫基礎架構不可用的情況。 您可以迴圈遍歷產品列表並為每個項目新增一行，按需生成條碼。 有關更多條碼格式，請探索支持的條碼型別或瀏覽IronBarcode教程。

如何自定義條碼外觀？

除了簡單的生成之外，IronBarcode還提供了多種自定義選項，在列印報告中很有幫助：

• 邊距 -- 使用myBarcode.SetMargins()為條碼新增白色空白區域，提高掃描可靠性
• 顏色 -- 更改前景和背景顏色以適應品牌報告設計
• 註釋 -- 使用AddBarcodeValueTextAboveBarcode()在條碼上方或下方新增自定義文字
• 解析度 -- 使用myBarcode.SetDPI()設置DPI以獲得高質量的列印輸出

請參閱條碼自定義指南以獲取每個選項的程式碼範例。

輸出

您的Crystal Report將顯示帶有可讀文字和適當尺寸的條碼。 根據需要調整欄位大小或邊距，以適應掃描器、列印機或標籤。 條碼可以直接從您的VB.NET應用程式中包含在PDF、列印表單或標籤模板中。

如何選擇合適的條碼格式？

選擇正確的條碼格式對於掃描硬體的相容性和資料容量很重要。 商業報告中最常見的格式是：

• Code 128 —— 通用的線性條碼； 高資料密度； 大多數掃描器均可工作。 使用BarcodeWriterEncoding.Code128。
• Code 39 —— 較舊的標準； 廣泛支持； 編碼字母數字字元。 使用BarcodeWriterEncoding.Code39。
• QR Code —— 2D條碼； 儲存大量資料，包括URL。 使用BarcodeWriterEncoding.QRCode。
• Data Matrix —— 緊湊的2D條碼； 在製造和物流中常見。 使用BarcodeWriterEncoding.DataMatrix。
• PDF417 —— 高容量2D條碼； 用於運輸標籤和ID。 使用BarcodeWriterEncoding.PDF417。

請參閱完整的支持條碼格式列表，以選擇適合您的使用場景的編碼。 要從Crystal Report輸出圖像中讀取條碼，請參閱條碼閱讀教程。