Crystal Report - Exportar a un archivo xls

Saludos, necesito exportar a un archivo de excel en tiempo de ejecucion, paro no hace nada, le configure lo siguiente:

CrystalReport1.Destination = crptToFile
CrystalReport1.PrintFileName = "c:\tmp\reporte"
CrystalReport1.PrintFileType = crptExcel50
CrystalReport1.PrintReport

Gracias.

No se si es lo q stas buscando, xo weno, yo t lo pongo.
cFihero es la ubicacion donde quieres depositarlo.
oBD es la Base d Datos(Dim oBD as DataBase)
cTabla es la tabla que kieres pasar a Excel.

Dim nOpcFich As Byte

If Dir(cFichero) <> "" Then
nOpcFich = MsgBox("Ya existe " & cFichero & _
", Desea reemplazar el archivo", vbYesNo)
If nOpcFich = vbYes Then
Kill cFichero
End If
End If
If nOpcFich <> vbNo Then
oBD.Execute ("SELECT * INTO [Excel 5.0;database=" _
& cFichero & "]." & cTabla _
& " FROM " & cTabla)
MsgBox ("Fichero Generado " & cFichero)
End If