This did it:
Public Function SendRPTTodayReport()
DoCmd.OpenReport "rptTodayReport", acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, "rptTodayReport", acFormatPDF, "\\Servidordatos\IFly\DB Public Data\Today Report\Today" & ".pdf", False, "", 0, acExportQualityPrint...