FoxPro/Visual FoxPro - Como utilizar reportes generados en Crystal Report

Gracias tengan un Buen Día, mi consulta es la siguiente esto generando reportes con el Crystal Report, como puedo hacer para que Fox los pueda utilizar trabajo con vfox 6

Gracias por todo
Ricardo

ve este ejemplo de Crystal Report. Informes y VFP9

Select * from myTable where Something into cursor myCursor
_CRReport("myCursor","c:\myCR_RPT_Files\", "myTest.RPT", "myTable")
return

Function _CRReport
Lparameters tcCursorName, tcPath, tcRPTName, tcTableName

lcAlias = alias()
Select (tcCursorName)
lcTemp = sys(2015)
Copy to (tcPath+lcTemp) type fox2x
oCrystal=CreateObject("Crystal.CRPE.Application")
#Define WS_MAXIMIZE 29949952
Declare integer GetForegroundWindow in WIN32API
Declare short IsWindow in WIN32API integer

oRpt = oCrystal.OpenReport(tcRPTName)
With oRpt
With .Database.Tables(tcTableName)
.Location = tcPath+lcTemp+".dbf"
Endwith
With .PrintWindowOptions
.CanDrillDown = .t.
.HasCancelButton = .t.
.HasCloseButton = .t.
.HasExportButton = .t.
.HasGroupTree = .t.
.HasNavigationControls = .t.
.HasPrintButton = .t.
.HasPrintSetupButton =.t.
.HasProgressControls =.t.
.HasRefreshButton =.f.
.HasSearchButton =.t.
.HasZoomControl =.t.
Endwith
.preview ("Report Preview "+"by VFP",,,,,WS_MAXIMIZE,0)
Endwith

lnHwndActiveX = GetForegroundWindow() && Save window handle
Do while IsWindow(lnHwndActiveX) # 0 && Wait while ActiveX Alive
Enddo
Clear dlls

Erase (tcPath+lcTemp+".*")
If !empty(lcAlias)and used(lcAlias)
Select (lcAlias)
Endif

Jesus Cordero
Caracas - Venezuela

ve este ejemplo de Crystal Report. Informes y VFP9

Select * from myTable where Something into cursor myCursor
_CRReport("myCursor","c:\myCR_RPT_Files\", "myTest.RPT", "myTable")
return

Function _CRReport
Lparameters tcCursorName, tcPath, tcRPTName, tcTableName

lcAlias = alias()
Select (tcCursorName)
lcTemp = sys(2015)
Copy to (tcPath+lcTemp) type fox2x
oCrystal=CreateObject("Crystal.CRPE.Application")
#Define WS_MAXIMIZE 29949952
Declare integer GetForegroundWindow in WIN32API
Declare short IsWindow in WIN32API integer

oRpt = oCrystal.OpenReport(tcRPTName)
With oRpt
With .Database.Tables(tcTableName)
.Location = tcPath+lcTemp+".dbf"
Endwith
With .PrintWindowOptions
.CanDrillDown = .t.
.HasCancelButton = .t.
.HasCloseButton = .t.
.HasExportButton = .t.
.HasGroupTree = .t.
.HasNavigationControls = .t.
.HasPrintButton = .t.
.HasPrintSetupButton =.t.
.HasProgressControls =.t.
.HasRefreshButton =.f.
.HasSearchButton =.t.
.HasZoomControl =.t.
Endwith
.preview ("Report Preview "+"by VFP",,,,,WS_MAXIMIZE,0)
Endwith

lnHwndActiveX = GetForegroundWindow() && Save window handle
Do while IsWindow(lnHwndActiveX) # 0 && Wait while ActiveX Alive
Enddo
Clear dlls

Erase (tcPath+lcTemp+".*")
If !empty(lcAlias)and used(lcAlias)
Select (lcAlias)
Endif

Jesus Cordero
Caracas - Venezuela

Gracias por la respuesta voy a ponerlo en practica