[Resolvido]Gerar vários PDFs de um único relatório

Boa noite, to numa enrrascada

Estou usando o Access2010, tenho um relatório de boletos (tem umas 500 páginas)

Tem um campo (sacadoboleto) que é o nome do sacado

preciso que cada pagina seja um arquivo pdf e seja salvo em um diretorio tipo c:\boletos\sacadoboleto.pdf, pois fiz um scrip que pega cada um desses arquivos e manda para o seu respectivo sacado.

obrigado pela ajuda

Olá, seja bem vindo ao forum. Acredito que cada um tenha sua ID particular, certo? Você pode tentar algo assim:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF
DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , "Código=" & rs!Código, acHidden

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

rs.MoveNext
Loop

rs.Close
Set rs = Nothing

sim tem um id, vou testar

obrigado

Fiz eu deu o seguinte erro

Run-time error '2059':

Microsof Access cannot find the object '|1'.

O erro deu nessa linha
DoCmd.OutputTo acOutputReport, "Rel", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatorio\" & rs!Codigo_Unico & ".pdf", False, "", 0, acExportQualityPrint

O código completo ficou assim

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("CadUn")

Do While Not rs.EOF
DoCmd.OpenReport "RelBoleto3", acViewPreview, , "Codigo_Unico=" & rs!Codigo_Unico, acHidden

DoCmd.OutputTo acOutputReport, "Rel", "PDFFormat(*.pdf)", CurrentProject.Path & "\Relatorio\" & rs!Codigo_Unico & ".pdf", False, "", 0, acExportQualityPrint
DoCmd.Close acReport, "RelBoleto3"

rs.MoveNext
Loop

rs.Close
Set rs = Nothing


Alguma Idéia? pensei ser o Codigo_Unico mais ele existe.

Obrigado

Existe a pasta Relatório dentro da pasta aonde está o aplicativo? Caso não exista, crie-a e tente novamente.

Ela existe, rodei e deu o mesmo erro

Coloquei o sistema na mesma pasta e deu o mesmo erro.

Os nomes dos elementos estão todos corretos? Eu tenho isso funcionando dessa forma aqui. E o seu Office está com os service packs em dia?

Achei o erro, tive de rodar no access2007 ai ele disse que não encontrou o objeto "Rel"

Alterei o código onde "Rel" é o nome do meu relatorio, comida de bola minha
DoCmd.OutputTo acOutputReport, "RelBoleto", acFormatPDF, "C:\Relatorio\" & rs!codigo_unico & ".pdf", False, "", 0, acExportQualityPrint
DoCmd.Close acReport, "RelBoleto3"

Obrigado pela ajuda.

Grato pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez eu clico.

Amigos,
Peguei uma carona neste tópico....

Tenho um relatório que se chama "Ger_Regional", ele é um relatório com alguns indicadores da regional.
Tenho uma tabela chamada "OrgVendas_Regional" que tem cadastrado minhas Regionais.
Quero criar 1 arquivo PDF para cada regional.
Pesquisei muito, mas não consegui achar solução para o meu caso.

Há 1ª consulta que serve de base para outras e estas servem de base para criação des sub-relatórios.
Como este relatório gerencial tem sub-relatórios, no momento da criação não vinculei ele a nenhuma consulta, fiz em branco e depois fui acrescentando os subs.

Qaundo executo o código

Sub PDFs_Regional()
Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("OrgVenda_Regional")

Do While Not rs.EOF
DoCmd.OpenReport "Ger_Regional", acViewPreview, , "Regional= " & rs!Regional, acHidden

DoCmd.OutputTo acOutputReport, "Ger_Regional", "PDFFormat(*.pdf)", CurrentProject.Path & "\projeto_access\Ger_Regional_" & rs!Regional & ".pdf", False, "", 0, acExportQualityPrint
DoCmd.Close acReport, "Ger_Regional"

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
End Sub


O Access informa que o relatório não está vinculado a uma tabela ou formulário....!!!


Vc podem me ajudar como resolvo o meu caso?
Quero gerar 1 pdf por regional de um relatório que tem vários subs nele.

Abç
André Lindolfo