Crystal Report - Ayuda con el crviewer

   
Vista:

Ayuda con el crviewer

Publicado por Sandra Sanabria (1 intervención) el 17/12/2008 22:30:31
Estoy intentando visualizar un reporte por el control CRViewer, pero me sale un error de file not found, el codigo es el siguiente :

Function verReportes(consulta, reporte, iOpt)

Dim CR_CustomReport As CRAXDRT.Report
Dim rsTempRecordset As New ADODB.Recordset
Dim CR_CustomApp As New CRAXDRT.Application

With rsTempRecordset
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = cn
.LockType = adLockOptimistic
.Source = consulta
.Open
End With

Set CR_CustomReport = CR_CustomApp.OpenReport(reporte, 1)
CR_CustomReport.DiscardSavedData
CR_CustomReport.Database.SetDataSource rsTempRecordset

If iOpt = 0 Then
CR_CustomReport.PrintOut
Else
Me.WindowState = vbMaximized
With CRViewer1
.ReportSource = CR_CustomReport
.EnableExportButton = True
.DisplayGroupTree = False
.ViewReport
Screen.MousePointer = vbDefault
End With
Me.Show
End If

'CR_CustomReport.PrintOut True ' esta propiedad me muestra el dialogo para escoger impresora

Set CR_CustomReport = Nothing
Set rsTempRecordset = Nothing

End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder