Сохраните каждую страницу отчета о доступе в формате PDF

Question

Приведенный ниже код помогает сохранить отчет о доступе в PDF, но проблема заключается в

Предположим, у вас есть 5 страниц в отчете, тогда он сохраняет 5 файлов PDF, каждый из которых имеет 5 страниц.

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Distinct [Prod Mast] FROM tblPdfImport;")

    Do While Not rs.EOF

        DoCmd.OpenReport "Rpt_Complete", acViewPreview, "[Prod Mast]=" & Trim(rs![Prod Mast]) & ", , acHidden"
        'DoCmd.OpenReport "Rpt_Complete", acHidden, "[Prod Mast]=" & Trim(rs![Prod Mast])
        DoCmd.OutputTo acOutputReport, "Rpt_Complete", acFormatPDF, "C:\Development\Testing\" & rs![Prod Mast] & ".pdf", False

        rs.MoveNext
    Loop
DoCmd.OpenQuery "qry_Delete_PDF"
DoCmd.Close acReport, "Rpt_Complete"