Ke tal José y Belem.
Espero les sea útil.
Ejemplo para trabajar a través de Viewer.
Hacer referencia a Crystar Report Viewer en el proyecto, insertar el objeto CRViewer1 y agregar las siguientes lineas básicas de código:
Dim crReport As New CRAXDRT.Report
Dim tbl As CRAXDRT.DatabaseTable
Dim cadena(3) As String
cadena(0) = "NOMBSEVIDOR"
cadena(1) = "NOMBDB"
cadena(2) = "NOMUSUARIO"
cadena(3) = "PASSWORD"
Set crReport = crApp.OpenReport(App.Path & "\NombReport.rpt", 1)
For Each tbl In crReport.Database.Tables
tbl.SetLogOnInfo cadena(0), cadena(1), cadena(2), cadena(3)
Next
Para filtrar la información del reporte sería así (ejemplo para rango de fecha):
crReport.RecordSelectionFormula = "{NOMTABLA.Fecha}>=date('" & VFecha1 & ") AND "{NOMTABLA.Fecha}<=date(" & VFecha2 & ")"
CRViewer1.ReportSource = crReport
CRViewer1.EnableExportButton = True <-- esto es para ke se active el botón de exportar
CRViewer1.ViewReport
----------------------------
Ejemplo para trabajar a través de Crystal Report Control.
Insertar el objeto CrystalReport1 a la form e insertar las siguientes lineas básicas:
CrystalReport1.ReportFileName = "C:\sistema\reportes\nombreporte.rpt"
CrystalReport1.Connect = "DataSource=NOMSERVIDOR;location=NOMBASE;uid=NOMUSUARIO;pwd=PASSWORD;"
CrystalReport1.Action = 1
SALUDOS.