http://www.windevbrasil.com.br/index.php/topic,1747.0.html
varquivo is string
varquivo =fDataDir()+"\"+ DateSys() + TimeSys() + ".pdf"
iDestination(iPDF,varquivo )
iInitReportQuery(RPT_Relatorio_inadimplentesimples)
iPrintReport(RPT_Relatorio_inadimplentesimples)
FileDisplay(varquivo, "application/pdf")
fDelete(varquivo)