Wie man Barcodes in Crystal Reports mit VB.NET druckt

Was sind die Methoden zum Drucken von Barcodes in Crystal Reports?

Es gibt zwei Hauptansätze zum Hinzufügen von Barcodes zu Crystal Reports: schriftbasierte Methoden und SDK-Lösungen.

Schriftbasierte Methoden erfordern die Installation spezieller Barcode-Schriften (True Type-Schriften) in Ihrem Schriftenordner und die Verwendung von Formeln oder einer User Function Library (UFL), um Daten zu kodieren. Obwohl dieser Ansatz funktioniert, erfordert er oft komplexe Kodierungsformeln, eingeschränkte Barcode-Formatunterstützung (wie Code 39 oder Data-Matrix) und potenzielle Schriftwiedergabeprobleme auf verschiedenen Druckern und Systemen, wie in Microsofts Dokumentation zur Schriftwiedergabe beschrieben.

SDK-basierte Lösungen bieten eine robustere Alternative. Diese Bibliotheken erzeugen Barcodes programmatisch und bieten mehr Zuverlässigkeit, umfangreiche Formatunterstützung und eine einfachere Implementierung. IronBarcode exemplifies this modern approach, allowing developers to Barcodes als Bilder zu erzeugen, die nahtlos mit Crystal Reports über standardmäßige Datenbankfelder oder DataTable-Objekte integriert werden. Diese Methode stellt eine konsistente Wiedergabe auf allen Plattformen sicher und beseitigt Schriftabhängigkeitsprobleme beim Drucken eines Barcodes in einem Crystal Report mit VB.NET.

Wie richte ich IronBarcode für VB.NET ein?

Die Einrichtung von IronBarcode in Ihrem VB.NET-Projekt erfordert nur minimale Konfiguration. Installieren Sie zunächst die Bibliothek über den NuGet-Paket-Manager, indem Sie ausführen:

Install-Package BarCode

Alternativ verwenden Sie die Paketmanager-Benutzeroberfläche in Visual Studio, um nach "IronBarcode" zu suchen und es zu installieren. Sobald installiert, importieren Sie den Namespace in Ihren VB.NET-Code:

Imports IronBarCode

Imports IronBarCode

Stellen Sie sicher, dass Ihr Projekt .NET Framework 4.0 oder höher oder eine beliebige Version von .NET Core/.NET 5+ anvisiert. IronBarcode funktioniert mit allen Crystal Reports-Versionen, die Bildfelder unterstützen, was es mit bestehenden Projekten breit kompatibel macht. Für detaillierte Einrichtungshinweise beziehen Sie sich auf die IronBarcode-Dokumentation.

Laden Sie IronBarcode noch heute herunter, um mit der Erstellung professioneller Barcodes in Ihren Crystal Reports zu beginnen.

Wie kann ich Barcodes erzeugen und in einer Datenbank speichern?

Die Erstellung von Barcodes mit IronBarcode und deren Speicherung für Crystal Reports beinhaltet das Erstellen des Barcode-Bildes und dessen Speicherung in Ihrer Datenbank über eine neue OleDbConnection oder SqlConnection. Hier ist ein vollständiges Beispiel:

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

Wie zeige ich Barcodes in Crystal Reports an?

Sobald Barcodes in Ihrer Datenbank gespeichert sind, erfolgt die Anzeige in Crystal Reports nach den standardmäßigen Bildfeldverfahren:

1. Öffnen Sie Crystal Reports und erstellen Sie einen neuen Bericht oder öffnen Sie einen bestehenden
2. Klicken Sie im Feld-Explorer mit der rechten Maustaste auf "Datenbankfelder" und wählen Sie "Datenbankexperte" aus

3. Verbinden Sie sich mit Ihrer Datenbank und wählen Sie die Tabelle aus, die Barcode-Bilder enthält
4. Ziehen Sie das Barcode-Bildfeld auf Ihre Berichtsgestaltungsoberfläche
5. Passen Sie das Feld nach Bedarf an

Ihr Berichtdesigner sollte so ähnlich aussehen:

Für die dynamische Barcode-Erzeugung während der Berichts-Ausführung ändern Sie Ihre DataTable oder Ihre Datenbankabfrage, um Barcodes im laufenden Betrieb zu erzeugen:

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

Dieser Ansatz erzeugt Barcodes dynamisch, wenn der Bericht geladen wird, und eliminiert die Notwendigkeit, Bilder vorab in der Datenbank zu speichern. Sie können Berichte auch über die Crystal Reports-Exportfunktionen in PDF konvertieren. Für weitere Informationen über Datenquellen von Crystal Reports siehe SAPs Crystal Reports-Dokumentation.

Was sind häufige Probleme und Lösungen?

Bei der Implementierung von Barcodes in Crystal Reports mit VB.NET können mehrere Probleme auftreten:

• Unklare Barcodes: Erhöhen Sie die Auflösung mit myBarcode.ResizeTo() mit größeren Abmessungen.
• Scanprobleme: Achten Sie auf ausreichend weißen Raum um Barcodes oder fügen Sie Asterix-Markierungen für Code 39 hinzu.
• Datenbankverbindungsprobleme: Überprüfen Sie die Parameter Ihrer neuen OleDbConnection oder neuen OleDbDataAdapter. Stellen Sie eine ordnungsgemäße Dataset-Bindung sicher.
• Datentyp-Probleme: Verwenden Sie immer Bild- oder varbinary(max)-Felder zum Speichern von Barcode-Binärdaten.
• Barcodes werden nicht angezeigt: Stellen Sie sicher, dass der Crystal Reports Viewer ordnungsgemäße Berechtigungen zum Zugriff auf die Datenbank, DataTable oder Dateiressourcen hat.
• Systemprobleme: Stellen Sie sicher, dass alle erforderlichen DLLs installiert sind und Ihr Projekt die richtige IronBarcode-DLL referenziert.
• Schrift- oder Druckerprobleme: Stellen Sie sicher, dass True Type-Schriften im Schriftartenordner installiert und für Ihre Drucker konfiguriert sind.

Für zusätzliche Unterstützung zur Fehlersuche besuchen Sie den IronBarcode-Fehlerbehebungsleitfaden.

Abschluss

Die Implementierung von Barcodes in Crystal Reports mit VB.NET und IronBarcode bietet eine zuverlässige und einfache Lösung zur Berichtserweiterung. Dieser SDK-basierte Ansatz eliminiert Schriftabhängigkeiten und bietet umfangreiche Anpassungsmöglichkeiten. Egal ob Sie eine Datenbank oder eine DataTable verwenden, Sie können professionelle Barcodes, einschließlich Data-Matrix, Code 39 und andere Formate, in Ihrer Crystal Reports-Anwendung implementieren.

Beginnen Sie noch heute mit der Implementierung von Barcodes in Ihrem Projekt, indem Sie die kostenlose Testversion von IronBarcode herunterladen, um die vollständigen Funktionen zum Drucken von Barcodes in Crystal Reports mit VB.NET zu erkunden.