Comment imprimer des codes-barres dans Crystal Reports avec VB.NET

Quels sont les méthodes pour imprimer des codes-barres dans Crystal Reports ?

Il existe deux approches principales pour ajouter des codes-barres à Crystal Reports : les méthodes basées sur la police et les solutions SDK.

Les méthodes basées sur la police nécessitent l'installation de polices de codes-barres spéciales (polices True Type) dans votre dossier de polices et l'utilisation de formules ou d'une bibliothèque de fonctions utilisateur (UFL) pour encoder les données. Bien que cette approche fonctionne, elle implique souvent des formules de codage complexes, une prise en charge limitée des formats de codes-barres (tels que Code 39 ou data matrix), et des problèmes potentiels de rendu de polices sur différents imprimantes et systèmes, comme discuté dans la documentation de Microsoft sur le rendu des polices.

Les solutions basées sur SDK offrent une alternative plus robuste. Ces bibliothèques génèrent des images de codes-barres par programmation, offrant une meilleure fiabilité, une prise en charge étendue des formats et une mise en place plus facile. IronBarcode exemplifies this modern approach, allowing developers to générer des codes-barres sous forme d'images qui s'intègrent parfaitement dans Crystal Reports via des champs de base de données standard ou des objets DataTable. Cette méthode assure un rendu cohérent sur toutes les plateformes et élimine les problèmes de dépendance aux polices lors de l'impression d'un code-barres dans un Crystal Report à l'aide de VB.NET.

Comment configurer IronBarcode pour VB.NET ?

La configuration de IronBarcode dans votre projet VB.NET nécessite une configuration minimale. Tout d'abord, installez la bibliothèque via le gestionnaire de packages NuGet en exécutant :

Install-Package BarCode

Alternativement, utilisez l'interface utilisateur du gestionnaire de packages dans Visual Studio pour rechercher et installer "IronBarcode". Une fois installé, importez l'espace de noms dans votre code VB.NET :

Imports IronBarCode

Imports IronBarCode

Assurez-vous que votre projet cible .NET Framework 4.0 ou supérieur, ou toute version de .NET Core/.NET 5+. IronBarcode fonctionne avec toutes les versions de Crystal Reports qui prennent en charge les champs d’image, ce qui le rend largement compatible avec les projets existants. Pour des instructions de configuration détaillées, consultez la documentation IronBarcode.

Téléchargez IronBarcode dès aujourd'hui pour commencer à créer des codes-barres professionnels dans vos Crystal Reports.

Comment générer des codes-barres et les stocker dans une base de données ?

Créer des codes-barres avec IronBarcode et les stocker pour Crystal Reports implique de générer l'image du code-barres et de la sauvegarder dans votre base de données à l'aide d'une nouvelle OleDbConnection ou SqlConnection. Voici un exemple complet :

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

Comment afficher les codes-barres dans Crystal Reports ?

Une fois que les codes-barres sont stockés dans votre base de données, les afficher dans Crystal Reports suit les procédures standard de champ d'image :

1. Ouvrez Crystal Reports et créez un nouveau rapport ou ouvrez un rapport existant
2. Dans l'Explorateur de champs, faites un clic droit sur "Champs de base de données" et sélectionnez "Expert de la base de données"

3. Connectez-vous à votre base de données et sélectionnez la table contenant les images de codes-barres
4. Faites glisser le champ d'image de code-barres sur la surface de conception de votre rapport
5. Redimensionnez et placez le champ selon le besoin

Le concepteur de votre rapport devrait ressembler à ceci :

Pour la génération dynamique de codes-barres lors du bon déroulement du rapport, modifiez votre DataTable ou votre requête de base de données pour générer des codes-barres à la volée :

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

Cette approche génère dynamiquement des codes-barres lors du chargement du rapport, éliminant la nécessité de pré-stocker des images dans la base de données. Vous pouvez également convertir des rapports en PDF grâce aux fonctionnalités d'exportation Crystal Reports. Pour plus d'informations sur les sources de données Crystal Reports, consultez la documentation SAP sur Crystal Reports.

Quels sont les problèmes courants et solutions?

Divers problèmes peuvent survenir lors de la mise en oeuvre de codes-barres dans Crystal Reports avec VB.NET :

• Codes-barres flous : Améliorez la résolution avec myBarcode.ResizeTo() avec des dimensions plus grandes.
• Problèmes de numérisation : Assurez suffisamment d'espace blanc autour des codes-barres ou incluez des marqueurs d'astérisque pour Code 39.
• Problèmes de connexion à la base de données : Vérifiez vos nouveaux paramètres OleDbConnection ou new OleDbDataAdapter. Assurez un lien adéquat au jeu de données.
• Problèmes de type de données : Utilisez toujours des champs image ou varbinary(max) pour stocker les données binaires du code-barres.
• Codes-barres non affichés : Vérifiez que le visualiseur Crystal Reports dispose des autorisations appropriées pour accéder à la base de données, DataTable ou aux ressources de fichiers.
• Problèmes système : Assurez-vous que toutes les DLL nécessaires sont installées et que votre projet référence la bonne DLL IronBarcode.
• Problèmes de polices ou d'imprimantes : Assurez-vous que les polices True Type sont installées dans le dossier des polices et configurées pour vos imprimantes.

Pour une assistance supplémentaire en matière de dépannage, visitez le guide de dépannage IronBarcode.

Conclusion

La mise en oeuvre de codes-barres dans Crystal Reports à l'aide de VB.NET et IronBarcode offre une solution fiable et simple pour améliorer les rapports. Cette approche basée sur SDK élimine les dépendances de polices tout en offrant de nombreuses options de personnalisation. Que vous utilisiez une base de données ou un DataTable, vous pouvez mettre en oeuvre des codes-barres professionnels, y compris les data matrix, Code 39, et d'autres formats dans votre application Crystal Reports.

Commencez à mettre en oeuvre des codes-barres dans votre projet aujourd'hui en téléchargeant la version d'essai gratuite de IronBarcode pour explorer toutes ses capacités pour imprimer des codes-barres dans Crystal Reports à l'aide de VB.NET.