Crystal Reports EAN 13 Barcode Generator
Generate, print EAN 13 image labels in report viewer in c#, vb.net project. No font formula. Free download.

     protected void Page_Load(object sender, EventArgs e)
     {
     OleDbConnection aConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/KACrystalData.mdb");
     aConnection.Open();
    
     OleDbDataAdapter dataAdapter = new OleDbDataAdapter("select * from Product",aConnection);
     DataSet ds = new DataSet();
     dataAdapter.Fill(ds);
    
     //Add the Barcode column to the DataSet
     ds.Tables[0].Columns.Add(new DataColumn("Barcode", typeof(byte[])));
    
     BarCode ean13 = new BarCode();
     //Barcode settings
     ean13.Symbology = KeepAutomation.Barcode.Symbology.EAN13;
     ean13.ImageFormat = System.Drawing.Imaging.ImageFormat.Png;
    
     foreach (DataRow dr in ds.Tables[0].Rows)
     {
     ean13.CodeToEncode = (int)dr["ProductId"] + "";
     byte[] imageData = ean13.generateBarcodeToByteArray();
     dr["Barcode"] = imageData;
     }
     CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrystalReport1.rpt"));
     CrystalReportSource1.ReportDocument.SetDataSource(ds.Tables[0]);
     CrystalReportSource1.DataBind(); 

     }

     Protected Sub Page_Load(sender As Object, e As EventArgs)
     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())))

    Dim ean13 As New BarCode()
    'Barcode settings
    ean13.Symbology = KeepAutomation.Barcode.Symbology.EAN13
    ean13.ImageFormat = System.Drawing.Imaging.ImageFormat.Png

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

    End Sub