I want to click a button and various reports are automatically saved to my desktop folder in pdf format.
I can get to output pdf but have to manually save into the folder for each report.
The code I had written isn't saving at all.... where am I going wrong with this code:
Private Sub Command127_Click()
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rptPrnAuto", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnCyto", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnLAD", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnMolecular", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnnonRICNK69", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnRICNK69", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnSubsets", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnTH1TH2", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
Err.Clear
End Sub
I can get to output pdf but have to manually save into the folder for each report.
The code I had written isn't saving at all.... where am I going wrong with this code:
Private Sub Command127_Click()
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rptPrnAuto", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnCyto", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnLAD", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnMolecular", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnnonRICNK69", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnRICNK69", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnSubsets", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
DoCmd.OutputTo acOutputReport, "rptPrnTH1TH2", acFormatPDF, "C:\Users\sreem\Desktop\RIC_RptToPdf"
Err.Clear
End Sub