Informe de visual foxpro a word

Puedes crear una instancia a word o excel. Y por servidor COM ir haciendo el informe, pero no me gusta mucho. Yo lo hago cuando no hay más remedio.
Aquí te mando uno para excel, éste lo hice urgente para un usuario y que el usuario luego lo ponga bonito o haga lo que quiera.
Hasta Luego.
Select Imputacion_Partes_Capataz_Frm_Informe_Comprobacion_Conceptos_001g
Comando = "Select " +;
" Alltrim( Codigo_Contrata_Imputacion_Imp) As Cod_Contrata, "+;
" Alltrim( Nombre_Contrata_Imputacion_Imp) As Contrata, "+;
" Fecha_Imputacion_Imp As Fecha, "+;
" Alltrim( Unidad_Control_Imputacion_Imp) As Unidad_Control, "+;
" Alltrim( Naturaleza_Imputacion_Imp) As Naturaleza, "+;
" Alltrim( Concepto_Imputacion_Imp) As Concepto, "+;
" Cantidad_Imputacion_Imp As Cantidad, "+;
" Alltrim( Unidad_Metrica_Imputacion_Imp) As Unidad_Metrica, "+;
" Precio_Unitario_Imputacion_Imp As Precio_Unitario, "+;
" Precio_Total_Imputacion_Imp As Precio_Total, "+;
Iif( !Empty( lContrata), ' +" Tipos de Naturaleza para: " '+ '+"'+Alltrim( lCod_Contrata)+ ' - ' +Alltrim( lContrata)+'"','" Tipos de Naturaleza para las Contratas "')+" As Titulo, "+;
Iif( !Empty( lDesde) And !Empty( lHasta),'" Desde: "'+'+"'+DtoC( lDesde)+'"+" Hasta: "'+'+"'+DtoC( lHasta)+'"', '""')+" As Sub1, "+;
Iif( !Empty( lDesde) And Empty( lHasta), '" Desde: "'+'+"'+DtoC( lDesde)+'"', '""')+" As Sub2, "+;
Iif( Empty( lDesde) And !Empty( lHasta), '" Hasta: "'+'+"'+DtoC( lHasta)+'"', '""')+" As Sub3, "+;
Iif( !Empty( lNaturaleza), '" Naturaleza: "'+'+"'+lNaturaleza+'"', '""')+" As SubNaturaleza, "+;
Iif( !Empty( lConcepto), '" Concepto: "'+'+"'+lConcepto+'"', '""')+" As SubConcepto "+;
"From "+;
" Imputacion_Partes_Capataz_Frm_Informe_Comprobacion_Conceptos_001g "+;
"Where "+;
lCondiciones+;
"Order By "+;
" Contrata, "+;
" Naturaleza, "+;
" Concepto, "+;
" Fecha, "+;
" Unidad_Control "+;
"Into Cursor "+;
" Reporte_Comprobacion_Concepto"
&Comando
* Iif( !Empty( lConcepto), '" Concepto: "'+'+"'+lConcepto+'"', '""')+" As SubConcepto "+;
If Used( 'Reporte_Comprobacion_Concepto') Then
Select Reporte_Comprobacion_Concepto
Local Comando
Comando = "COPY TO "
Comando = Comando + Directorio_Raiz_Origen
Comando = Comando + "Excel\frm_informe_comprobacion_conceptos_001g" + TtoC( DateTime(), 1) + ".xls TYPE XL5"
&Comando
EndIf