urgente Llamar desde visual foxpro un reporte de cistal con variables desde fox

Johann Maceo
15 de Agosto del 2003
Local objCristal, objCrpReport, lcPrnName,lcPrnPort

*--Se instancia la aplicación crystal
objCrystal =Createobject("crystal.crpe.application")

*--Se verifica que se haya instanciado crystal
If Type("objCrystal") # "O"
=Messagebox(" No se pudo crear el objeto de automatización de Crystal Reports. Verifique que se"+Chr(13)+;
"instalado en el equipo",64,"No se encontro el archivo CPEAUT32.DLL")
Return
Endif