Ricardo calo
26 de Noviembre del 2005

Hola a todos: Me podrian ayudar para saber como hago para enviar los reportes a word con la misma forma que si estuvieran impresos y a excel.
Gracias.

usuario
26 de Noviembre del 2005

Utiliza la herramienta frx2word que gratuita, tambien frx2any ó xfrx que son por pago.

EmilsonPineda
26 de Noviembre del 2005

Mira..... para pasar los reportes o información a excel.... es facil si tienes ingenio para poder hacer las cosas..... te dire lo que yo hago.... lo cual me ayudara a tener un mejor control de lo que necesito pasar a excel. Excel te permite crear archivos Templates "Los conoces o has utilizado" bien.... en estos files tu creas como un reporte solo los encabezados y defines en que columnas caera cada información que necesites. como x ejemplo, lo hare vertical y no horizontal por el espacio.

CODIGO (Column A)
DESCRIPCION (Column B)
CANTIDAD (Column C)
PRECIO (Column D)
TOTAL (Column E)

supongamos que esta información esta en la Linea 6 y el file lo salvaremos dentro de un directorio cerca del sistema para que todos los usuarios tengan acceso a el con facilidad.... (osea archivos pre-diseñados)

bien el boton para exportar a excel tendra el siguiente codigo de PRG

WAIT WINDOW "Exportando Data a Excel..." NOWAIT

LOCAL sDate
LOCAL nRecno
LOCAL objExcel
LOCAL nRow
LOCAL sPathFileOpen

m.sPathFileOpen="x:\Sistema\sheets\templates\inventario"
m.objExcel=CREATEOBJECT("excel.application")
m.objexcel.Workbooks.Open(m.sPathFileOpen)
m.nRow=7
m.nCount=0

SELECT TableInventory
m.nRecno=RECNO()
SCAN
IF cantidad#0 THEN
m.objExcel.Cells(m.nRow,1).Value=Codigo
m.objExcel.Cells(m.nRow,2).Value=Descripción
m.objExcel.Cells(m.nRow,3).Value=cantidad
m.objExcel.Cells(m.nRow,4).Value=precio
m.objExcel.Cells(m.nRow,5).Value="=C"+LTRIM(STR(m.nRow))+"+D"+LTRIM(STR(m.nRow))
m.nRow=m.nRow+1
ENDIF
ENDSCAN

m.objExcel.Range("A8","I"+LTRIM(STR(m.nCount+7))).Borders.LineStyle=1
m.objexcel.Cells(m.nRow,8).Value=;
m.objExcel.SUM(m.objexcel.Range("H8","H"+LTRIM(STR(m.nCount+7))))
m.objExcel.Visible=.T.

RELEASE m.objExcel

GO (m.nRecno)

WAIT CLEAR

ok..... esto exportara la información que necesites a excel en un entorno mas control por ti....

espero te sirva....

ahora con Word aún estoy realizando algunas pruebas para ver como puedo minimizar la programación y sacar mejor provecho del Word.... q\'do pendiente para luego explicarte como hacerlo....

saludos,