esrefigit'in 10. mesajdaki örneğini kendinize uyarlayabilirsiniz.
WhereCrit = CurrentProject.Path & "\" & theId & ".pdf"
DoCmd.OutputTo acReport, theId, acFormatXLS, WhereCrit
kodunu aşağıdaki ile değiştirirseniz Excel yerine pdf olarak gönderir.
WhereCrit = CurrentProject.Path & "\" & theId & ".xls"
DoCmd.OutputTo acReport, theId, acFormatPDF, WhereCrit