VB.NETでCrystal Reportsでバーコードを印刷する方法

Crystal Reportsでバーコードを印刷する方法は何ですか？

Crystal Reportsにバーコードを追加するための主なアプローチは2つあります：フォントベースの方法とSDKソリューションです。

フォントベースの方法は、フォントフォルダ内に特殊なバーコードフォント（True Typeフォント）をインストールし、数式やユーザ関数ライブラリ（UFL）を使用してデータをエンコードすることが必要です。 このアプローチは機能しますが、しばしば複雑なエンコーディング式、限られたバーコード形式のサポート（Code 39やデータマトリックスなど）、および異なるプリンターやシステムでのフォントレンダリングの問題を伴います。これはMicrosoftのフォントレンダリングに関するドキュメントで説明されています。

SDKベースのソリューションは、より強力な代替手段を提供します。これらのライブラリはプログラム的にバーコード画像を生成し、信頼性を向上させ、フォーマットのサポートを拡張し、実装を容易にします。 IronBarcodeはこの現代のアプローチの例であり、開発者はバーコードを生成して、それを標準のデータベースフィールドやDataTableオブジェクトを通じてCrystal Reportsとシームレスに統合できます。 この方法は、すべてのプラットフォームで一貫したレンダリングを確保し、VB.NETを使用してCrystal Reportsでプリントする際のフォント依存の問題を解消します。

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. フィールドエクスプローラで"データベースフィールド"を右クリックし、"データベースエキスパート"を選択

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のトラブルシューティングガイドを訪れてください。

結論

VB.NETとIronBarcodeを使用してCrystal Reportsにバーコードを実装することは、レポートを強化するための信頼性があり、シンプルなソリューションを提供します。 このSDKベースのアプローチはフォント依存を排除し、広範なカスタマイズオプションを提供します。 データベースまたはDataTableを使用するかにかかわらず、あなたのCrystal Reportsアプリケーションにデータマトリックス、Code 39、および他のフォーマットを含むプロフェッショナルなバーコードを実装できます。

今日、プロジェクトでバーコードを実装する準備を整え、IronBarcodeの無料トライアルをダウンロードして、VB.NETを使用してCrystal Reportsでバーコードを印刷するためのすべての機能を探索してください。