[Resolvido]exportar para PDF separando o relatório por página/PDF

Boa tarde Amigos.. tenho este comando a seguir que exporta um relatório para PDF, porém como o relatório tem várias páginas.. ele gera apenas um PDF

Como gerar um PDF para cada página de relatório?

DoCmd.OutputTo acOutputReport, "Boleto_PDF", "PDFFormat(*.pdf)", CurrentProject.Path & "\PDF\Boletos_" & Format(Now, "mm-yyyy") & ".pdf", False, "", 0, acExportQualityScreen

Grato pela ajuda.

Amigos...

1 - Coloquei critério na consulta do relatório para abrir filtrado pelo código..
2 - Executando o módulo lança o Código em uma caixa texto desacoplada no formulário
3 - Loop pelo recordset abrindo o relatório a cada laço.

Public Function GeraPDF()
Dim Rs      As DAO.Recordset
Dim StrSQL  As String
Dim strSQL1 As String
Dim StrBolCliente As String

StrSQL = "SELECT CNR1.ID_BoletoCNR, CNR1.ID_Cliente, CNR1.CpCodBanco, CNR1.Agencia, CNR1.Conta," _
        & "CNR1.CódigodoCedente, CNR1.cpNumeroDocumento, CNR1.cpNumeroTitulo, CNR1.CpAceite, CNR1.cpDataEmissao," _
        & "CNR1.cpDataVencimento, CNR1.cpQuadroMensagens, CNR1.cpValorReais, CNR1.cpMulta, CNR1.cpJuros, CNR1.ID_Moeda," _
        & "CNR1.Barra, CNR1.CpNossoNumero, CNR1.CpNossoNumero1, CNR1.LinhaDigitavel, CNR1.CpQuitado," _
        & "[Cadastro de clientes-ES].NomeFantasia, [Cadastro de clientes-ES].CGC, CNR1.EmitidoPor," _
        & "tblMoeda.Moeda, tblMoeda.CpTipo, CNR1.CpEspecieDoc, [Cadastro de clientes-ES].[End de Cobrança]," _
        & "[Cadastro de clientes-ES].[CEP p/ Cobrança], CNR1.Carteira FROM tblMoeda INNER JOIN ([Cadastro de clientes-ES]" _
        & "INNER JOIN CNR1 ON [Cadastro de clientes-ES].CodigoDoCliente = CNR1.ID_Cliente) ON tblMoeda.Código = CNR1.ID_Moeda WHERE GeradoPDF = 0"


Set Rs = CurrentDb.OpenRecordset(StrSQL)
 Rs.MoveLast: Rs.MoveFirst

Do While Not Rs.EOF
    Forms!FrmPrintBoleto.txtIDPdf = Rs(0)
    StrBolCliente = "Título " & Rs!cpNumeroTitulo & "_" & Rs!NomeFantasia
    StrBolCliente = Replace(StrBolCliente, "/", "_")
    DoCmd.OutputTo acOutputReport, "Boleto_PDF", "PDFFormat(*.pdf)", CurrentProject.Path & "\PDF\" & StrBolCliente & "" & ".pdf", False, "", 0, acExportQualityScreen
    Pause (1)
    CurrentDb.Execute "UPDATE CNR1 Set GeradoPDF =1 WHERE ID_BoletoCNR = " & Rs(0) & ""
Rs.MoveNext
Loop
End Function

Cumprimentos.