FastReport - Preview PDFEXPORT

[MGA]

Friends, exporting PDF by preview does not work well for me. I would really like to switch the action of the EXPORT PDF option to my function. Can someone help me?

In this topic Mr. Marco Turco helped to do something like email:

viewtopic.php?f=3&t=16511&p=85501&hilit=fastreport+email#p85501

[joseluisysturiz]

Saludos, con esto me trabaja bien..casualmente estoy en ese trabajo en este momento..saludos...gracias...

Code: Select all  Expand view  RUN

      IF lEditor
         oFr:DesignReport() // LLAMO AL DISEÑADOR
      ELSE // SIN DISEÑADOR

// DIRECTO A PDF - ALBEIRO
         oFr:SetProperty("PDFExport", "DefaultPath", cPathPdf) // DIRECTORIO DONDE GUARDAR ARCHIVO
         oFr:SetProperty("PDFExport", "FileName", cFilePdf) // NOMBRE DEL ARCHIVO
         oFr:SetProperty("PDFExport", "ShowDialog", .f.) // MOSTRAR DIALOGO PARA IMPRIMIR
         oFr:SetProperty("PDFExport", "OpenAfterExport", .t.) // ABRIR DESPUES DE CREAR...
         oFr:SetProperty("PDFExport", "EmbeddedFonts", .t.) // FUENTES ENCRUSTRADAS
         oFr:SetProperty("PDFExport", "PrintOptimized", .t.)
         oFr:SetProperty("PDFExport", "Outline", .t.)
         oFr:SetProperty("PDFExport", "Compressed", .f.) // COMPRIMIR TEXTO - JLY
         ***
         oFr:PrepareReport() // PREPARAR EL REPORTE
         oFr:DoExport("PDFExport") // EJECUTA LA EXPORTACION
      ENDIF
   ENDIF

   oFr:DestroyFR() // DESTRUYO EL DISEÑADOR

 

[MGA]

José Gracias