FiveTech Support Forums

How to preview a report using tprinter and at the same time have a copy of it silently saved as a pdf in the background?

My experiment so far tends to have the exe just silently terminates. I was using FWH15.01 and FWSavePreviewToPdf()

TIA

I made this changes in rpreview.prg, in:

METHOD PrintPage() CLASS TPreview

....

if ! lCancel
MsgRun( ::oDevice:cDocument, "Imprimiendo Reporte",;
{ || ::PrintPrv( nil, nOption, nFirst, nLast ) } )

        // daniel 2016-07-29

• ? 'ACA GUARDAR PDF',oApp:lGuardarPDF,oApp:cImprimiendo

      IF oApp:lGuardarPDF
  
                      IF oApp:cImprimiendo == 'RECIBO'
                         cRutaPDF:=oApp:cRutaPDFRecibos
                      ELSEIF oApp:cImprimiendo == 'FE'
                         cRutaPDF:=oApp:cRutaPDFFE
                      ELSEIF oApp:cImprimiendo == 'PRESUPUESTO'
                           cRutaPDF:=oApp:cRutaPDFPresupuestos
                      ENDIF
  
      MsgRun( ::oDevice:cDocument, "Guardando PDF",;
              { || ::SaveAs( .t.,cRutaPdf+'\'+::oDevice:cDocument,.F. ) } )
      ENDIF
  

endif