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.

• 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