xtrareports-11915-feature-guide-to-devexpress-reports-use-report-controls-use-bar-codes-codabar.md
Codabar is a discrete, self-checking symbology used in blood banks, photo labs, and on FedEx air bills.
Refer to the following article for more details: Codabar.
Drag the XRBarCode item from the DX.25.2: Report Controls tab and drop it onto the report.
Set the XRBarCode control’s Symbology property to Codabar (an object of the CodabarGenerator type).
Specify common barcode properties and properties specific to Codabar.
The following code creates the Codabar barcode and specifies its properties:
View Example: How to add a bar code to a report
using System;
using System.Collections.Generic;
using System.Drawing.Printing;
using System.Windows.Forms;
using DevExpress.XtraPrinting.BarCode;
using DevExpress.XtraReports.UI;
// ...
public XRBarCode CreateCodabarBarCode(string BarCodeText) {
// Create a barcode control.
XRBarCode barCode = new XRBarCode();
// Set the barcode's type to Codabar
barCode.Symbology = new CodabarGenerator();
// Adjust the barcode's main properties.
barCode.Text = BarCodeText;
barCode.Width = 300;
barCode.Height = 100;
// Adjust the properties specific to the barcode type.
((CodabarGenerator)barCode.Symbology).StartSymbol = CodabarStartStopSymbol.C;
((CodabarGenerator)barCode.Symbology).StopSymbol = CodabarStartStopSymbol.D;
((CodabarGenerator)barCode.Symbology).WideNarrowRatio = 2.5F;
return barCode;
}
Imports System
Imports System.Collections.Generic
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports DevExpress.XtraPrinting.BarCode
Imports DevExpress.XtraReports.UI
' ...
Public Function CreateCodabarBarCode(ByVal BarCodeText As String) As XRBarCode
' Create a barcode control.
Dim barCode As New XRBarCode()
' Set the barcode's type to Codabar
barCode.Symbology = New CodabarGenerator()
' Adjust the barcode's main properties.
barCode.Text = BarCodeText
barCode.Width = 300
barCode.Height = 100
' Adjust the properties specific to the barcode type.
CType(barCode.Symbology, CodabarGenerator).StartSymbol = CodabarStartStopSymbol.C
CType(barCode.Symbology, CodabarGenerator).StopSymbol = CodabarStartStopSymbol.D
CType(barCode.Symbology, CodabarGenerator).WideNarrowRatio = 2.5F
Return barCode
End Function
The code example below shows how to create a report with the Codabar barcode:
using DevExpress.XtraPrinting.BarCode;
using DevExpress.XtraReports.UI;
//...
var barCode = CreateCodabarBarCode("0123456789");
var report = new XtraReport() {
Bands = {
new DetailBand() {
Controls = { barCode }
}
}
};
Imports DevExpress.XtraPrinting.BarCode
Imports DevExpress.XtraReports.UI
'...
Private barCode = CreateCodabarBarCode("0123456789")
Dim report As New XtraReport()
Dim band = New DetailBand()
band.Controls.Add(barCode)