Porque VB no me muestra el crystal (informe) ?

[nolo41]

Hola. Alguien podria ayudarme. Mi programa VB que llama al Crystal reports tiene que enviar 2 parametros. Todo bien pero cuando Vb pasa por la instruccion CrViewer.ViewReport no me muestra el reporte. Que pasa ?

Yo elegi la referencia "crystal report activex designer run time libray 10.0" y el objeto "crystal activex report viewer library 10.0"

El reporte es simple, solo para ver como pasar parametros. No usa Base de datos ni nada, solo muestra los parametros que le envio de VB.

Aca muestro el codigo.

===================================

Private Sub Form_Load()

Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition

Dim mflgContinuar As Boolean
Dim mstrParametro1 As String
Dim mlngParametro2 As Long

On Error GoTo ErrHandler


'Abrir el reporte

Screen.MousePointer = vbHourglass

Set crReport = crApp.OpenReport(App.Path & "\report1.rpt", 1)

' Parametros del reporte


Set crParamDefs = crReport.ParameterFields


For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "nromdc"
crParamDef.AddCurrentValue ("1")
Case "nroae"
crParamDef.AddCurrentValue ("1")
End Select
Next

CrViewer.ReportSource = crReport
CrViewer.DisplayGroupTree = False
CrViewer.ViewReport

Screen.MousePointer = vbDefault

Set crParamDefs = Nothing

Set crParamDef = Nothing

End


ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "El archivo de reporte no se encuentra, restáurelo de los discos de instalación", _
vbCritical
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault

End Sub
=========================================

Gracias...