How to Print Barcodes in Crystal Reports with VB.NET

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兼容性文档以获取完整的支持列表。

方案一：使用 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

此示例生成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

这种数据表方法非常适合报表预览、一次性打印作业或数据库基础架构不可用的情况。 您可以遍历产品列表，并为每个商品添加一行，按需生成条形码。 如需了解更多条形码格式，请浏览支持的条形码类型或IronBarcode教程。

如何自定义条形码外观？

除了简单的生成功能外， IronBarcode还提供多种自定义选项，这些选项在打印报表时非常有用：

-边距-- 使用 myBarcode.SetMargins() 在条形码周围添加空白，提高扫描可靠性 -颜色-- 更改品牌报告设计的前景和背景颜色 -注释-- 使用 AddBarcodeValueTextAboveBarcode() 在条形码上方或下方添加自定义文本 -分辨率-- 使用 myBarcode.SetDPI() 设置 DPI 以获得高质量打印输出

请参阅条形码定制指南，其中包含涵盖每种选项的代码示例。

输出

您的 Crystal Report 将显示带有可读文本和正确尺寸的条形码。 根据扫描仪、打印机或标签的需要调整字段大小或边距。 条形码可以直接从您的 VB .NET应用程序添加到 PDF、打印表格或标签模板中。

如何选择合适的条形码格式？

选择正确的条形码格式对扫描硬件的兼容性和数据容量至关重要。 最常见的商业报告格式有：

• Code 128 -- 通用线性条形码； 高数据密度； 适用于大多数扫描仪。 使用 BarcodeWriterEncoding.Code128。 -代码 39 -- 旧标准； 得到广泛支持； 对字母数字字符进行编码。 使用 BarcodeWriterEncoding.Code39。 -二维码-- 二维条形码； 存储大量数据，包括网址。 使用 BarcodeWriterEncoding.QRCode。 -数据矩阵-- 紧凑型二维条码； 在制造业和物流业中很常见。 使用 BarcodeWriterEncoding.DataMatrix。
• PDF417 -- 高容量二维条码； 用于制作货运标签和ID。 使用 BarcodeWriterEncoding.PDF417。

在为您的使用场景选择合适的编码时，请参考完整的支持的条形码格式列表。 要读取 Crystal Report 输出图像中的条形码，请参阅条形码读取器教程。