FoxPro/Visual FoxPro - Vista Previa de Crystal Report en VFP

Compañeros del foro:
Hace unos dias inicie mi aprendizaje en Crystal Report para diseñar un reporte mas profesional que los que ofrece VFP. Encontre un artículo muy bueno en donde describe los detalles de uso de Crystal en VFP,
http://www.fpress.com/revista/Num0603/art.htm
sin embargo, la parte que explica la Vista Previa de un Reporte no funciona y ya he revisado el código y es exactamente el mismo y no funciona en mi aplicación. Todo lo demás funciona bien, pero me gustaria saber si alguno de ustedes sabes porque no funciona o si existe otra forma de obtener la vista previa de un reporte de Crystal Report en VFP; yo uso la versión 5.0
De antemano gracias y espero puedan ayudarme.

Atte.
Omar García
Veracruz, México

Hiciste tú Reporte con Crystal Report Externo
para poder conectar desde Visual Fox Pro ??

Si, tengo el reporte .RPT, lo puedo imprimir desde VFP pero cuando agrego el Active X para ver la vista previa, no veo nada. Sigo al pie de la letra las indicaciones del tutorial de Fox press.

Verifica si Tienes estos comandos en un Boton de
Opción ..Command u otro .
*----------------------------------------------------------------------
Thisform.Olecontrol1.Action=0
* Aquí Previsuliza tú Informe
Thisform.Olecontrol1.DiscardSaveddata=.T.
* Aquí actualiza la tabla de datos
Thisform.Olecontrol1.ReportFileName ='C:\MiProy\Report2.Rpt'
* Ruta del Informe
* Thisform.Olecontrol1.SelectionFormula
* Lo Imprime con vista Previa
Thisform.Olecontrol1.Printreport

El código que me enviaste es parecido al que tengo. Pero yo lo tengo en el init del formulario que contiene el Active X de Crystal. Mi código es el siguiente

wait window 'antes de imprimir"
Thisform.oleControl1.ReportFileName= "D:\Xbasura\Prueba1.rpt"
** Se muestra el reporte.
Thisform.oleControl1.ViewReport
wait window 'Impresion"

y ya puse tu código de esta forma

wait window 'antes de imprimir"
** Se pasa el objeto Report a la propiedad ReportSource
** del CR Viewer.
thisform.oleControl1.Action = 0
thisform.oleControl1.DiscardSaveddata = .T.
Thisform.oleControl1.ReportSource= "D:\Xbasura\Prueba1.rpt"
** Se muestra el reporte.
Thisform.oleControl1.PrintReport

pero tampoco muestra nada, solo el control en blanco, sin la vista previa.

No Omar debes sacarlo del Init de tú Form
esto no funciona desde ahí ..este código lo
debes copiar a un Command u otro botón
de Opción y pegarlo en su evento Click ..
y tener insertado sobre el form el control
de Crystal .
Nota si este código está en el evento Click
de un Command ,desde ahi llamará a tú
Report . y debes borrar a posterior el código
que tienes en el Init del Form ,ya que obstruirá
el otro proceso .