Rebeca
19 de Marzo del 2006

Hola,

me acabo de pasar a crystal reports 9 (antes trabajaba con el 4), y tengo dudas sobre la impresión de unos registros desde VisualBasic aplicando un filtro SQL.

El código que utilizaba con el 4 es el siguiente:

CR1.ReportFileName = App.Path & "informesclients.rpt"

CR1.SQLQuery = "SELECT * FROM CLIENT WHERE NOM_CLI = '" & Trim(Text1(1).Text) & "'"

CR1.Action = 1

Por lo que veo, la versión 9, añade muchos controles nuevos, y ahora no se que controles coger i como traducir las instrucciones anteriores a CrystalReports9.

Por ejemplo, me he mirado todos los componentes y no he encontrado ninguno para decirle donde está el fichero report.

Me urge mucho la duda.
Muchas gracias por su atención
Rebeca

Bartolom
19 de Marzo del 2006

Te voy a contestar lo mismo que les he contestado a los otros y que a mi me da buen resultado, en la versión 8 8.5 y 9


Te recomiendo utilizar el control CRViewer y no el crystal reports.

Primero, creo un formulario exclusivo para el reporte, supongamos que se llama formReporte, en el cual va a ir el objeto CrViewer. Luego, para llamarlo, lo hago desde un botón ubicado en otro formulario cualquiera, con el siguiente evento:

Private Sub Botón_Click()'Este botón debe ir
'en otro form
Dim frmRep As New formReporte
frmRep.Show vbModal
Set frmRep = Nothing
End Sub


Luego en el formulario donde va el control CrViewer debes colocar lo siguiente:

Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report

Private Sub Form_Load()
'Abrir el reporte
Screen.MousePointer = vbHourglass

Set crReport = crApp.OpenReport(App.Path & "tu reporte", 1)
'crReport.SQLQueryString = "Tu consulta SQL" ' esta
'consulta es opcional

CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = False
CRViewer.ViewReport
Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
CRViewer.Top = 0
CRViewer.Left = 0
CRViewer.Height = ScaleHeight
CRViewer.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set crReport = Nothing
Set crApp = Nothing
End Sub



También debes agregar la referencia (menú Proyecto, Referencias) el siguiente control:

Crystal Reports Active X Designer RunTime Library

Y en de componentes, debes buscar el Crystal Reports control Viewer.

Saludos!
Bartolom
Chile

Nora
19 de Marzo del 2006

Bartolom . hay posibilidades de usar el CRViewer?? en la version 7 de Crystal . porque estoy intentanto pero .no puedo

david
19 de Marzo del 2006

Muchas gracias bartolom, ahora lo pruebo