Uno de los grandes problemas de VFP son los reportes; pero podemos realizar los reportes en Cristal Report Y luego llamarlos desde VFP.
No quiero decir con esto que sea mejor, más fácil o más cómodo; simplemente es otra Forma de hacerlo Y tiene muchas ventajas.
En los ejemplos que demuestro estoy utilizando la versión 8 del Cristal Report de Seagate pero considero que se debe comportar igual con las demás versiones.
Primero veamos como puedo exportar un reporte a extensión .Doc (Word)
oCristalReport =
Createobject("crystal.crpe.application")
oRepx = oCristalReport.OpenReport("C:\reporteventas.RPT")
oRepx.ExportOptions.FormatType = 14
&& Formato de Word
oRepx.ExportOptions.DiskFileName =
"c:\reporteventasdelmes.doc"
oRepx.ExportOptions.DestinationType = 1
&& Tipo de Destino a guardar
oRepx.Export(.F.) &&
No muestra ningun cuadro de Dialogo
Release oRepx
Release oCristalReport
los otros formatos en que podemos guardar los reportes son:
Extensión FormatType
RTF 4
EXCEL 7 27 o 28
EXCEL 8 29 o 30
* Para ver en vista previa un reporte:
oCristalReport =
Createobject("crystal.crpe.application")
oRep = oCristalReport.OpenReport("C:\reporteventas.RPT")
oRep.Preview
* Para mandarlo a imprimir
oCristalReport =
Createobject("crystal.crpe.application")
oRep = oCristalReport.OpenReport("C:\reporteventas.RPT")
oRep.Printout(.F.)
&& .F. no muestra cuadro para configurar impresora
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
