Gerar relatórios em vários arquivos de PDF

Pessoal estou com a seguinte situação eu tenho um relatório de boletos e quero gerar esse relatório em pdf, ate ai tudo bem, o problema e cada pagina possui o boleto de cada cliente com sua identificação eu quero na função que eu possuo acrescentar para cada pagina ele gere um PDF com a ID_CLIENTE
Segue código e adaptado ao que eu preciso: copiado do grande Avelino Sampaio.

Private Sub GerarContra_Click()

Dim strArquivo As String
Dim strLocal As String
Dim Nm As String
Dim Name As String
Nm = Screen.ActiveReport.Name
NOME = Me.O_FUNCIONA

strArquivo = "M" & Me!O_FUNCIONA & ".pdf"
strLocal = "C:\TESTE\" & strArquivo

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "CONTRACHEQUE", acViewPreview, acHidden

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, vbNullStri, "CONTRACHEQUE", acFormatPDF, strLocal

'Fecha o relatório DoCmd.Close acReport, "rltProposta"
DoCmd.Close acReport, "CONTRACHEQUE"

End Sub


Desde já agradeço a todos

A poucos dias atrás montei uma função para isso. Abaixo deixo a função tal qual está no aplicativo que eu desenvolvi, sendo que, nesse aplicativo, ainda tenho labels para exibir o andamento do processo, tempo decorrido e tambem barras de progresso. É só adaptar

Private Sub Comando7_Click()

On Error GoTo TErro

Dim rs As Recordset

PT = 1
TC = Me.cxProgresso.Width
Me.lblProgresso.Visible = True
Me.cxProgresso.Visible = True
Me.cxFundo.Visible = True
Me.lblAtual.Visible = True

DoCmd.OpenForm "frmStatus"

Set rs = CurrentDb.OpenRecordset("tblClientes")

Me.txtTI.Visible = True
Me.txtTF.Visible = True
Me.txtTI = Time

Do While Not rs.EOF

DoCmd.OpenReport "Rel", acViewNormal, , "Código=" & rs!Código, acHidden

Me.Rótulo12.Caption = "Tempo decorrido:"
Me.txtTF = Time - Me.txtTI
Me.lblAtual.Caption = "Exportando o relatório de " & StrConv(rs!Nome, vbUpperCase)
Me.lblProgresso.Caption = "Progresso: " & Format(PT, "00") & "/" & rs.RecordCount & " - " & Round(Format(PT * 100 / rs.RecordCount, "000"), 2) & "%"
Me.cxProgresso.Width = TC / rs.RecordCount * PT

DoCmd.OutputTo acOutputReport, "Rel", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatórios\" & rs!Código & ".pdf", False, "", 0, acExportQualityPrint

DoCmd.Close acReport, "Rel"

PT = PT + 1

rs.MoveNext
Loop

DoCmd.Close acForm, "frmStatus"

Me.txtTF = Time
Me.Rótulo12.Caption = "Término"
Me.txtTempo.Visible = True
Me.txtTempo = Me.txtTF - Me.txtTI
Me.txtMS.Visible = True
Me.txtMM.Visible = True
Me.txtMH.Visible = True

Me.lblAtual.Caption = "PROCESSO CONCLUÍDO. RELATÓRIOS EXPORTADOS."

rs.Close
Set rs = Nothing

TErro:
If Err.Number = 2501 Then
Exit Sub
End If
End Sub

Grande Criquio não consegui, tentei adaptar o meu e nada coloque o seu codigo adptando e nada ele gera direto para impressora e quando eu consigo salvar o arquivo ele so salva um PDF com as duas paginas dentro da uma olha no codigo:


On Error GoTo TErro
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("CONTRACHEQUE")
Do While Not rs.EOF
DoCmd.OpenReport "CONTRACHEQUE", acViewNormal, , "O_FUNCIONA=" & rs!O_FUNCIONA, acHidden
DoCmd.OutputTo acOutputReport, "CONTRACHEQUE", "PDFFormat(*.pdf)", "C:\TESTE\" & rs!O_FUNCIONA & ".pdf", False, "", 0, acExportQualityPrint
DoCmd.Close acReport, "CONTRACHEQUE"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing

TErro:
If Err.Number = 2501 Then
Exit Sub
End If

valeu a ajuda

Tente trocar o acViewNormal por acViewPreview.

ja tentei isso, eu tenho um formulario com esse botão eu preciso ter algum campo nele para fazer algum filtro no relatorio lenbrando que eu quero gerar todas as paginas cada cagina seu PDF

pessoal ate a impressora ele vai mais apareçe a caixa de imprimir na primeiro codigo de identificação mais trava segue o codigo:

Private Sub GerarContra_Click()

Dim strArquivo As String
Dim strLocal As String
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("CONTRACHEQUE")
Do While Not rs.EOF

strArquivo = "M" & Me!F_MATRIC & ".pdf"
strLocal = "C:\TESTE\" & strArquivo

DoCmd.OpenReport "CONTRACHEQUE", acViewPreview, , "F_MATRIC=" & rs!F_MATRIC, acHidden

DoCmd.OutputTo acOutputReport, "CONTRACHEQUE", acFormatPDF, strLocal, False, "", 0, acExportQualityPrint

DoCmd.Close acReport, "CONTRACHEQUE"

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
End Sub

E aí amigo, conseguiu resolver?

ainda não a questão que eu acho e que para eu gerar eu vou ter que colocar uma referencia en cima do relatorio para meu codigo, para que ele identifique e me de o resultado que eu quero eu ja vi outro poste aqui e vou tentar seguir por:

http://maximoaccess.forumeiros.com/t5403-resolvidogerar-varios-pdfs-de-um-unico-relatorio

valeu criquio