Crystal Reports Code 39 Barcode Generator
How to generate Code 39 label in Crystal report viewer without font. Free download with demo code.

     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 code39 = new BarCode();
     //Barcode settings
     code39.Symbology = KeepAutomation.Barcode.Symbology.Code39;
     code39.ImageFormat = System.Drawing.Imaging.ImageFormat.Png;
    
     foreach (DataRow dr in ds.Tables[0].Rows)
     {
     code39.CodeToEncode = (int)dr["ProductId"] + "";
     byte[] imageData = code39.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 code39 As New BarCode()
    'Barcode settings
    code39.Symbology = KeepAutomation.Barcode.Symbology.Code39
    code39.ImageFormat = System.Drawing.Imaging.ImageFormat.Png

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

    End Sub