Dim infoRpt as string
infoRpt = app.Path & "\Informe.rpt"
'Existe un checkbox para elegir si el Informe se
'previsualiza o se imprime directamente
If Check1.Value = VbChecked then
'Visualiza el listado
frmBase.CR1.Destination = crptToWindow
Else
'Imprime Listado
frmBase.CR1.Destination = crptToPrinter
End If
'Indico el nombre del archivo
frmBase.CR1.ReportFileName = infoRpt
'Se ejecuta Crystal
frmBase.CR1.Action = 1