Exportar reporte a Excel

[PETACA]

Hola a todos. Pregunto. Alguien me puede ayudar, necesito exportar a
excel los reportes, es decir tener la posibilidad de enviarlos a la
impresora o a una planilla de excel.
Gracias a todos.

[sej...@gmail.com]

Utiliza foxypreviewer.

Saludos


José Luis

Enviado desde BlackBerry® de COMCEL S.A.

[HernanCano]

1.
use ARCHIVO.DBF
copy to NUEVO.XLS xls
use

2.
use ARCHIVO.DBF
LCCURSOR="ARCHIVO"
Oexcel = CREATEOBJECT("Excel.Application")

XLApp = Oexcel
XLApp.workbooks.ADD()
XLSheet = XLApp.ActiveSheet
XLSheet.NAME='VFP_'+ALLTR(STR(lpag))
XLApp.Sheets(1).SELECT

SELECT(lcursor)
lcuantos=AFIELDS(lcampos,lcursor)
GO TOP IN (lcursor)
LOCAL R,lcampo
R=6
FOR I = 1 TO lcuantos
lcname=lcampos(I,1)
XLSheet.Cells(4,I).VALUE=lcname
NEXT
XLSheet.Cells(1,1).VALUE='Demostración de Vfp a Excel'
SCAN
FOR I=1 TO lcuantos
lcampo=ALLTRIM(lcursor)+'.'+lcampos(I,1)
IF TYPE('&lcampo')#'G'
IF TYPE('&lcampo')='C'
XLSheet.Cells(R,I).VALUE=ALLTRIM(&lcampo)
ELSE
IF TYPE('&lcampo')='T'
XLSheet.Cells(R,I).VALUE=TTOC(&lcampo)
ELSE
XLSheet.Cells(R,I).VALUE=&lcampo
ENDIF
ENDIF
ENDIF
NEXT
R=R+1
ENDSCAN
Oexcel.VISIBLE=.T.
use

3.
FoxyPreviewer.

RECOMENDACION:
Para mí el mejor es el 3.

[Irlandes 1960]

Hola, no se bien que es lo que estas buscando.

Los informes en mi sistema siempre se basan en un cursor creado a tal efecto con selec, que en definitiva deja un dbf como resultado, y el usuario decide si lo quiere ver como un informe (pantalla / impresora / TIF), o pasar la info a excel, en cuyo caso básicamente es el export to xxxx XL5

Luego lo abro y agrego títulos, totales, y cuales fueron los filtros aplicados, pero no para emular el informe, sino para otros usos.
¿es esto lo que estas buscando?