MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    andersonlsl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 14/02/2012

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

    Mensagem  andersonlsl 17/10/2016, 19:26

    Galera, Bom dia / Boa Tarde e Boa Noite! Very Happy

    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, Sad
    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.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 18/10/2016, 00:06

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7178
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira 18/10/2016, 10:54

    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
    avatar
    andersonlsl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 14/02/2012

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

    Mensagem  andersonlsl 18/10/2016, 12:47

    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? Shocked

    Desde já muito obrigado!!!
    Very Happy

    Abs,
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 18/10/2016, 13:51

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

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    andersonlsl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 14/02/2012

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

    Mensagem  andersonlsl 18/10/2016, 17:47

    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 cheers
    DoCmd.OpenReport "Historico por produto_Pronto", , "Zona=" & rs!Zona Crying or Very sad

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 18/10/2016, 21:13

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 12/4/2021, 01:49