FastReport - Preview PDFEXPORT

FastReport - Preview PDFEXPORT

Postby MGA » Mon Nov 20, 2017 11:39 am

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
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: FastReport - Preview PDFEXPORT

Postby joseluisysturiz » Mon Nov 20, 2017 2:39 pm

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

Code: Select all  Expand view

      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

 
Last edited by joseluisysturiz on Wed Nov 22, 2017 3:22 am, edited 1 time in total.
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Re: FastReport - Preview PDFEXPORT

Postby MGA » Tue Nov 21, 2017 7:18 pm

José Gracias
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Antonio Linares, Natter and 14 guests