如何在MS Access中根据记录输出多个PDF文件？

Sub ExportToPDF()
    Dim rs As Recordset
    Dim strSQL As String
    Dim strPath As String
    Dim strFileName As String
    Dim strCriteria As String
    
    ' 设置要导出的记录的条件
    strCriteria = "YourConditionHere"
    
    ' 设置要导出的报表的路径和文件名
    strPath = "C:\Path\To\Save\PDF\Files\"
    
    ' 设置要导出的报表的文件名的基础部分
    strFileName = "Report"
    
    ' 构建SQL查询语句
    strSQL = "SELECT * FROM YourTable WHERE " & strCriteria
    
    ' 打开记录集
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 循环遍历记录集
    Do Until rs.EOF
        ' 设置报表的筛选条件
        DoCmd.OpenReport "YourReportName", acViewPreview, , "ID = " & rs!ID
        
        ' 导出报表为PDF文件
        DoCmd.OutputTo acOutputReport, "", acFormatPDF, strPath & strFileName & rs!ID & ".pdf"
        
        ' 关闭报表
        DoCmd.Close acReport, "YourReportName"
        
        ' 移动到下一条记录
        rs.MoveNext
    Loop
    
    ' 关闭记录集
    rs.Close
    Set rs = Nothing
    
    MsgBox "PDF files have been exported successfully!", vbInformation
End Sub