Preciso automatizar a geração de ao menos 150 PDFs

Galera, Bom dia / Boa Tarde e Boa Noite!

Eu preciso de ajuda para automatizar um relatório de performance de vendas de produtos variados, eu gostaria de separar por vendedor.
Quando eu utilizo o código abaixo ele imprime todos em um só arquivo, e isso não ajuda,
Option Compare Database

Private Sub Gerar_PDFs()

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Tb_Historico_por_Produto_New")

Do While Not rs.EOF
DoCmd.OpenReport "Historico por produto_Pronto", , "Zona=" & rs!Zona
DoCmd.OutputTo acViewPreview, "Historico por produto_Pronto", "PDFFormat(*.pdf)", _
CurrentProject.Path & "\PDFs\Hist_Produto_" & rs!Zona & ".pdf", False, "", 0, acExportQualityPrint
DoCmd.Close acReport, "Historico por produto_Pronto"

Loop

rs.MoveNext

MsgBox "O relatório foi gerado por Zona!", vbInformation, "Concluído"

rs.Close
Set rs = Nothing

End Sub

Desde já agradeço.

Experimente assim:


Private Sub Gerar_PDFs()

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Tb_Historico_por_Produto_New")

Do While Not rs.EOF
DoCmd.OpenReport "Historico por produto_Pronto", , "Zona='" & rs!Zona & "'", acHidden




DoCmd.OutputTo acOutputReport, "Historico por produto_Pronto", acFormatPDF, CurrentProject.Path & "\PDFs\Hist_Produto_" & rs!Zona & ".pdf", False


DoCmd.Close acReport, "Historico por produto_Pronto"

rs.MoveNext
Loop

MsgBox "O relatório foi gerado por Zona!", vbInformation, "Concluído"

rs.Close
Set rs = Nothing

End Sub




Estou supondo que o Campo Zona é um campo da tabela do tipo Texto!

Olá a todos,
Um pitaco, acho que deve ter o relatório a filtar por vendedor (não sei se é o campo zona).
No Do While, deve passar variavel do vendedor ao relatório (para filtrar).
Abraço

Bom dia,

Então, o campo zona é exatamente o vendedor, faz algum tempo que não desenvolvo, pode estar na minha cara a resposta, mas não estou conseguindo acertar...

No caso do filtro, AHTeixeira, não seria DoCmd.OpenReport "Historico por produto_Pronto", , "Zona='" & rs!Zona & "'", acHidden?

Desde já muito obrigado!!!


Abs,

Sim, esse seria a parte em que aplica o Filtro...

Se nao deu certo posta aqui seu aplicativo que daremos uma olhada...

Mestres,

Obrigado pela ajuda, por hora está funcionando, agora vou adaptar para que seja enviado automaticamente por email.
Detalhe para a condição acViewPreview na linha DoCmd.OpenReport... e para a condição que deve ser na posição de Where não Filter.

DoCmd.OpenReport "Historico por produto_Pronto", acViewPreview , , "Zona='" & ZonaR & "'", acHidden
DoCmd.OpenReport "Historico por produto_Pronto", , "Zona=" & rs!Zona

Abs.

Segue código no momento:

Private Sub Gerar_PDFs()


Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("Tab_zonas")
Set ZonaR = rs!SGrp
Set VendedorR = rs!Vendedor


Do While Not rs.EOF
DoCmd.OpenReport "Historico por produto_Pronto", acViewPreview, , "Zona='" & ZonaR & "'", acHidden


'DoCmd.SetWarnings False

DoCmd.OutputTo acOutputReport, "Historico por produto_Pronto", acFormatPDF, _
CurrentProject.Path & "\PDFs\Hist_Produto_" & ZonaR & "_" & VendedorR & ".pdf", False, , , acExportQualityPrint


DoCmd.Close acReport, "Historico por produto_Pronto"

rs.MoveNext
Loop

MsgBox "O relatório foi gerado por Zona!", vbInformation, "Concluído"

rs.Close
Set rs = Nothing

End Sub

Ops, havia faltado apenas uma Virgula a mais ali ne... rererererere.

Grato pelo retorno!

Nao esquece de Marcar como Resolvido!

Até a próxima se Deus quiser!