Access 2010 w/SQL后端-使用vba将多个报告发送到pdf，而不进行预览

Sub ExportReportsToPDF()
    Dim rpt As Report
    Dim strPath As String
    
    ' 设置PDF保存路径
    strPath = "C:\Reports\"
    
    ' 打开报告并导出为PDF
    Set rpt = Reports!Report1
    DoCmd.OpenReport rpt.Name, acViewPreview
    DoCmd.OutputTo acOutputReport, rpt.Name, acFormatPDF, strPath & "Report1.pdf"
    DoCmd.Close acReport, rpt.Name
    
    Set rpt = Reports!Report2
    DoCmd.OpenReport rpt.Name, acViewPreview
    DoCmd.OutputTo acOutputReport, rpt.Name, acFormatPDF, strPath & "Report2.pdf"
    DoCmd.Close acReport, rpt.Name
    
    ' 继续导出其他报告...
    
    MsgBox "报告已成功导出为PDF。"
End Sub