|
Ejemplo de utilización del control ABarcode ActiveX en un informe de Crystal Reports
Este ejemplo presupone que usted ya abrió un nuevo proyecto y ejecutó los pasos previos
descritos en esta página.
Siga estos pasos a continuación:
- Seleccione el menú Proyecto -> Agregar nuevo elemento.
- Seleccione el icono Crystal Report y presione el botón Agregar.

- Presione OK en la primera pantalla del asistente.

- Seleccione como origen de los datos la tabla Products del dataset creado
en los pasos previos.

- Arrastre los campos ProductId, ProductName y
Barcode desde el Explorador de campos a la sección Detalle del informe.

- Seleccione Format Object en el menu contextual del campo Barcode,
marque la opción Can Grow, presione Aceptar y cierre el informe.

- Agregue un nuevo formulario al proyecto, y arrastre el componente CrystalReportViewer sobre el mismo.

- Arrastre también el control ABarcodeX.Barcode al formulario y establezca la propiedad
Visible en Falso.

- Haga doble clic sobre la barra de título del formulario para abrir la ventana de código,
luego inserte el siguiente código para el evento Load:
Visual Basic .NET
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim ta As New DataSet1TableAdapters.ProductsTableAdapter
Dim dt As New DataSet1.ProductsDataTable
ta.Fill(dt)
For Each row As DataSet1.ProductsRow In dt.Rows
Me.AxBarcode1.ValueToEncode = row.ProductID.ToString
row.Barcode = ImageToByte(Me.AxBarcode1.GetWMF)
Next
Dim report As New CrystalReport1
report.SetDataSource(CType(dt, DataTable))
Me.CrystalReportViewer1.ReportSource = report
End Sub
End Class
Visual C# .NET
private void Form2_Load(object sender, EventArgs e)
{
DataSet1TableAdapters.ProductsTableAdapter ta =
new DataSet1TableAdapters.ProductsTableAdapter();
DataSet1.ProductsDataTable dt = new DataSet1.ProductsDataTable();
ta.Fill(dt);
Class1 cls1 = new Class1();
foreach (DataSet1.ProductsRow row in dt.Rows)
{
this.axBarcode1.ValueToEncode = row.ProductID.ToString();
row.Barcode = cls1.imageToByte(this.axBarcode1.GetWMF());
}
CrystalReport1 report = new CrystalReport1();
report.SetDataSource((DataTable)dt);
this.crystalReportViewer1.ReportSource = report;
}
- Establezca el nuevo formulario como formulario de inicio en las propiedades del proyecto (VB)
o en Program.cs (C#), y ejecute la aplicación.
El formulario presentará el informe con los códigos de barras dibujados.

- El control CrystalReportViewer le permite exportar el informe en diferentes formatos (PDF, Excel, Word y otros) en cuyo caso los códigos de barras se mantienen:

Informe Crystal Report exportado a PDF

Informe Crystal Report exportado a Excel

Informe Crystal Report exportado a Word
Ejemplo con formulario
Ejemplo con informe RDLC
Volver al inicio de los ejemplos
|