Preview and save to pdf at the same time

[hua]

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

[puenteda]

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