Foxypreviewer: unir 2 report en un pdf sin vista previa

[Jose Antonio Blasco]

Hola a todos.
Explico mis necesidades para que se entienda mejor.

Debo revisar la información de un grupo amplio de clientes, y para
cada uno de ellos generar 2 informes diferentes y enviarlos via email.
Pretendo generar un pdf que una ambos informes, para así enviar y
archivar 1 solo archivo por cliente y envio. Este proceso se podrá
realizar cada vez que se quiera, de ahí mi necesidad de reducir el
número de archivos lo máximo posible.

Ya he visto en los ejemplos que se puede hacer con vista previa asi:

DO LOCFILE("FoxyPreviewer.App")

REPORT FORM LOCFILE(_Samples + "\Solution\Reports\Colors.frx") ;
PREVIEW NOPAGEEJECT NORESET

REPORT FORM LOCFILE(_Samples + "\Solution\Reports\Wrapping.frx") ;
PREVIEW

y al grabar como PDF se graban juntos.

Pero dado el volumen de informes, necesito que sea sin vista previa similar a:

DO LOCFILE("FoxyPreviewer.App")

REPORT FORM (_Samples + "\Solution\Reports\Wrapping.frx") ;
OBJECT TYPE 10 TO FILE "c:\TestReport.Pdf"

Alguien sabe si es posible unir 2 informes con este método ?


Gracias y un saludo.

--
Jose A. Blasco
Zaragoza - España

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi

[Cesar VfpImaging]

Hola Jose Antonio,

no es posible en el modo simplificado utilizando el "Object type"
Para hacerlo sin preview, hay que utilizar el modo completo, pero sin garantias, ok ?

Saludos

2012/5/18 Jose Antonio Blasco <jabl...@gmail.com>

[Jose Antonio Blasco]

Gracias Cesar. Pruebo y te cuento.

Un saludo.

[Jose Antonio Blasco]

Acabo de probarlo y funciona correctamente.
El codigo utilizado es el siguiente (con la version 2.98b):


SET PROCEDURE TO LOCFILE("FoxyPreviewer.App") ADDITIVE
LOCAL loReport as "PreviewHelper" OF "FoxyPreviewer.App"
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport as ReportHelper
.AddReport(_Samples + "\Solution\Reports\Colors.frx", "NODIALOG")
.AddReport(_Samples + "\Solution\Reports\Wrapping.frx", "NODIALOG")
.cDestFile = "c:\Teste1.pdf" && Use para crear una salida sin vista previa
.RunReport()
ENDWITH
loReport = NULL

Return

Un saludo y gracias por tu ayuda.


El día 18 de mayo de 2012 17:25, Jose Antonio Blasco
<jabl...@gmail.com> escribió: