Gerar Pdf em VFP com FoxYpreviewer.app

[alceu11]

Ondi baixar o FoxyPreviewer.App
[Você precisa estar registrado e conectado para ver este link.]

TOPICO Relacionado [Você precisa estar registrado e conectado para ver este link.]
CODIGO

Código:

 *!*  A rotina e somente esta para gerar 1 Pdf com o report sample
* foxyPreviewer.app  http://foxypreviewer.codeplex.com/releases/view/49471
 SET DEFAULT TO SYS(5)+CURDIR()
 SET PROCEDURE TO LOCFILE("FoxyPreviewer.App") ADDITIVE
 SET SYSMENU off
 SET REPORTBEHAVIOR 90
 
 LOCAL loReport as "PreviewHelper" OF "FoxyPreviewer.App"
 WAIT WINDOW AT 10,30 ' Blog http://alceu11.blogspot.com/ GERANDO O PDF' NOWAIT
 loReport = CREATEOBJECT("PreviewHelper")
 WITH loReport as ReportHelper
 .AddReport("sample.frx", "NODIALOG")
 .cDestFile = "G:\Teste2.pdf" && Use para criar uma previsão de saída
 .RunReport()
 ENDWITH
 loReport = NULL
 WAIT CLEAR  && abrindo o pdf linha abaixo
 RUN /N Explorer.Exe G:\Teste2.pdf
  ***depois so enviar email


***vou deixar Codigo no blog [Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

link
[Você precisa estar registrado e conectado para ver este link.]

documentacao
[Você precisa estar registrado e conectado para ver este link.]

ou
[Você precisa estar registrado e conectado para ver este link.]

Video 2 gerando com o mesmo app , arquivo xls, rtf e pdf

[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

codigo

Código:


***Com este pequeno codigo imprimir um report vfp em varios formatos link abaixo
***http://foxypreviewer.codeplex.com/wikipage?title=Docs_Spanish_Main
**http://[Você precisa estar registrado e conectado para ver este link.]
SET DEFAULT TO SYS(5)+CURDIR()
SET PROCEDURE TO LOCFILE("FoxyPreviewer.App") ADDITIVE
 SET REPORTBEHAVIOR 90
LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.App"
loReport = CREATEOBJECT("PreviewHelper")
loReport.AddReport(_Samples + "\Solution\Reports\colors.frx") 
loReport.RunReport()