Crystal Reports Barcode Generator
Generate, print, show barcode label in Crystal Reports using vb.net. No font formula, ufl. Free download with demo code.

How to generate, show, display, print linear, 2d barcode labels in Crystal Reports report viewer using vb.net without font, ufl, formula. Free download.

• Development Environments: Visual Studio 2005 or above versions, Visual C#, Visual Basic.NET, Crystal Reports for .NET (runtime), .NET Framework 2.0, or greater
• Operating System Compatibility: Windows Vista / Windows7 / Windows XP / Window Server 2005 / 2008

• Microsoft Windows XP
• Microsoft Visual Studio 2005
• Visual Basic .NET

1. Create a new .NET project with "Crystal Reports Application" as template. Name the project as "CrystalReportsBarcode".
2. Using the Report Wizard to create a new report, and choose "Standard", and click "OK" button.
3. Expand "Create New Connection", find "ADO.NET" in "Data" form and expand it.
4. In "Connection" form, select the "ProductDataSet.xsd" in your unzipped package. Then click "Finish" button.
5. In "Data" form, add table "Product" and click "Next".
6. In "Fields" form, add all three columns in the table "Product". Click "Finish".
7. In CrystalReport1.rpt, drag and drop "Barcode" in the "Field Explorer" to the report Section 3.
8. In .NET project "solution explorer", add "KeepAutomation.Barcode.Crystal.dll" to your project reference.
9. Open your "Form1.cs", copy the following demo code and run the report.

     Dim aConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/KACrystalData.mdb")
     aConnection.Open()

     Dim dataAdapter As New OleDbDataAdapter("select * from Product", aConnection)
     Dim ds As New DataSet()
     dataAdapter.Fill(ds)

     'Add the Barcode column to the DataSet
     ds.Tables(0).Columns.Add(New DataColumn("Barcode", GetType(Byte())))

     'Create an instance of Linear Barcode
     'Use DataMatrixCrystal for Data Matrix
     'Use PDF417Crystal for PDF417
     'Use QRCodeCrystal for QR Code
     Dim barcode As New BarCode()
     'Barcode settings
     barcode.Symbology = KeepAutomation.Barcode.Symbology.UPCA
     barcode.ImageFormat = System.Drawing.Imaging.ImageFormat.Png

     For Each dr As DataRow In ds.Tables(0).Rows
     barcode.CodeToEncode = CInt(dr("ProductId")) & ""
     Dim imageData As Byte() = barcode.generateBarcodeToByteArray()
     dr("Barcode") = imageData
     Next
     CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrystalReport1.rpt"))
     CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables(0))
     CrystalReportSource1.DataBind()

1. Open your Visual Studio, create a new web project with "ASP.NET Crystal Reports Web Site" as template;
2. Create a new report "Using the Report Wizard", choose "Standard", and click "OK";
3. In "Data" form, double click "Create New Connection", and expand "ADO.NET".
4. In "ADO.NET" form, select "ProductDataSet.xsd" file in your downloaded package, and click "Finish" button.
5. In "Data" form, add table "Product" and click "Next".
6. In "Fields" form, add all three columns in the table "Product". Click "Finish".
7. In CrystalReport1.rpt, add field "Barcode" to the report Section 3;
8. Add "KeepAutomation.Barcode.Crystal.dll" to your project reference in "Solution Explorer";
9. Right click "Default.aspx" in"Solution Explorer" and choose "View Code";
10. Use the following demo code accordingly and run the project.

     Dim aConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/KACrystalData.mdb")
     aConnection.Open()
     Dim dataAdapter As New OleDbDataAdapter("select * from Product", aConnection)
     Dim ds As New DataSet()
     dataAdapter.Fill(ds)
     'add a new column named "Barcode" to the DataSet, the new column data type is byte[]
     ds.Tables(0).Columns.Add(New DataColumn("Barcode", GetType(Byte())))
     Dim barcode As New BarCode()
     barcode.Symbology = KeepAutomation.Barcode.Symbology.EAN13
     For Each dr As DataRow In ds.Tables(0).Rows
     barcode.CodeToEncode = CInt(dr("ProductId")) & ""
     Dim imageData As Byte() = barcode.generateBarcodeToByteArray()
     dr("Barcode") = imageData
     Next
     Dim rpt As New CrystalReport1()
     rpt.SetDataSource(ds)
     Me.crystalReportViewer1.ReportSource = rpt
     aConnection.Close()