- 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 
-