How to create and print Avery address labels with USPS OneCode 4-State Customer Barcode (4-CB) in Crystal Reports for ASP.NET

Imports Neodynamic.WebControls.BarcodeProfessional 

using Neodynamic.WebControls.BarcodeProfessional; 

'Create a DataSet from the XML file
Dim xmlFile As String = Server.MapPath("AdventureWorksEmployees.xml")
Dim ds As New DataSet
ds.ReadXml(xmlFile)
'The XML File with the data DOES NOT include
'the BarcodeImage "column" or element we've included
'in the XML Schema file.
'So, create the BarcodeImage column
'WARNING: you must name it as you did in the XML Schema

Dim dc As DataColumn = New DataColumn("BarcodeImage", GetType(Byte()))
'Add the BarcodeImage column to the DataTable

ds.Tables(0).Columns.Add(dc)
'Create a BarcodeProfessional object to fill
'the BarcodeImage column

Dim bc As BarcodeProfessional = New BarcodeProfessional
'Use USPS OneCode 4-State Customer Barcode Symbology

bc.Symbology = Symbology.UspsOneCode4CB
'Barcode Dimension Settings (specified in inches)

bc.Postal4StateTrackerBarWidth = 0.02 'a value ranging from 0.015 to 0.025

bc.Postal4StateTrackerBarHeight = 0.06 'a value ranging from 0.04 to 0.08

bc.Postal4StateBarsSpacing = 0.02 'a value ranging from 0.012 to 0.040

bc.QuietZoneWidth = 0
bc.DisplayCode = False
bc.Text = ""

'USPS OneCode tracking code

Dim trackingCode As String = "00123123456123456789" 'Fictitious (See comments at the beginning of this guide)

'Now, generate and fill barcode images

For Each dr As DataRow In ds.Tables(0).Rows
    'Compose USPS OneCode: tracking code + PostalCode column

    bc.Code = trackingCode + CType(dr("PostalCode"), String)
    dr("BarcodeImage") = bc.GetBarcodeImage(System.Drawing.Imaging.ImageFormat.Png)
Next
'Create a AveryMailLabels report object
'and set its data source with the DataSet

Dim report As CrystalDecisions.CrystalReports.Engine.ReportDocument
report = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim rptFile As String = Server.MapPath("AveryMailLabels.rpt")
report.Load(rptFile)
report.SetDataSource(ds)

If Not Me.IsPostBack Then
'Export report to PDF format into C:\Temp folder
'NOTE: Give write permission to ASPNET account to Temp folder

Dim DiskOptions As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
DiskOptions.DiskFileName = "C:\\TEMP\\AveryMailLabelsWithBarcodeImages.pdf"
report.ExportOptions.DestinationOptions = DiskOptions
report.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
report.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
report.Export()
End If

'Show it!

CrystalReportViewer1.ReportSource = report

//Create a DataSet from the XML file
string xmlFile = Server.MapPath("AdventureWorksEmployees.xml");
DataSet ds = new DataSet();
ds.ReadXml(xmlFile);
//The XML File with the data DOES NOT include
//the BarcodeImage "column" or element we've included
//in the XML Schema file.
//So, create the BarcodeImage column
//WARNING: you must name it as you did in the XML Schema
DataColumn dc = new DataColumn("BarcodeImage", typeof(byte[]));
//Add the BarcodeImage column to the DataTable
ds.Tables[0].Columns.Add(dc);
//Create a BarcodeProfessional object to fill
//the BarcodeImage column
BarcodeProfessional bc = new BarcodeProfessional();
//Use USPS OneCode 4-State Customer Barcode Symbology
bc.Symbology = Symbology.UspsOneCode4CB;
//Barcode Dimension Settings (specified in inches)
bc.Postal4StateTrackerBarWidth = 0.02f; //a value ranging from 0.015 to 0.025
bc.Postal4StateTrackerBarHeight = 0.06f; //a value ranging from 0.04 to 0.08
bc.Postal4StateBarsSpacing = 0.02f; //a value ranging from 0.012 to 0.040
bc.QuietZoneWidth = 0;
bc.DisplayCode = false;
bc.Text = "";

//USPS OneCode tracking code
string trackingCode = "00123123456123456789"; //Fictitious (See comments at the beginning of this guide)

//Now, generate and fill barcode images
foreach (DataRow dr in ds.Tables[0].Rows)
{
    //Compose USPS OneCode: tracking code + PostalCode column
    bc.Code = trackingCode + (string)dr["PostalCode"];
    dr["BarcodeImage"] = bc.GetBarcodeImage(System.Drawing.Imaging.ImageFormat.Png);
}
//Create a AveryMailLabels report object
//and set its data source with the DataSet
CrystalDecisions.CrystalReports.Engine.ReportDocument report;
report = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
string rptFile = Server.MapPath("AveryMailLabels.rpt");
report.Load(rptFile);
report.SetDataSource(ds);


if (!this.IsPostBack)
{
//Export report to PDF format into C:\Temp folder
//NOTE: Give write permission to ASPNET account to Temp folder
CrystalDecisions.Shared.DiskFileDestinationOptions DiskOptions = new CrystalDecisions.Shared.DiskFileDestinationOptions();
DiskOptions.DiskFileName = "C:\\TEMP\\AveryMailLabelsWithBarcodeImages.pdf";
report.ExportOptions.DestinationOptions = DiskOptions;
report.ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile;
report.ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat;
report.Export();
}
//Show it!
CrystalReportViewer1.ReportSource = report;