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


2 participantes

    [Resolvido] gerar relatórios em PDF - em lote

    avatar
    Elie39l
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/06/2013

    [Resolvido] gerar relatórios em PDF - em lote Empty [Resolvido] gerar relatórios em PDF - em lote

    Mensagem  Elie39l 8/4/2023, 04:31

    Boa noite pessoal, eu tenho um banco de dados com mais de 2000 registros e uso o código abaixo para visualizar,  gerar e converter  relatórios em pdf para armazenar no servidor salvos com os nomes dinamicamente:

    DoCmd.OutputTo acOutputReport, "Relatório_para_impressao", "PDFFormat(*.pdf)", "C:\CAMINHO\" & ME.RG & " - " & Me.Nome & ".pdf", False, "", 0, acExportQualityScreen.

    Surgiu agora a necessidade de converter esses quase dois mil relatórios em pdf esta semana. A dúvida: eu conseguiria criar um VBA ou macro que faça isso sem a necessidade de clicar e abrir um a um? Desde já muito obrigado.


    Última edição por Elie39l em 9/4/2023, 05:28, editado 1 vez(es)
    avatar
    Elie39l
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/06/2013

    [Resolvido] gerar relatórios em PDF - em lote Empty Resolvido - acho

    Mensagem  Elie39l 8/4/2023, 21:47

    Não sei se foi a maneira certa mas tá ótimo, puz um botao no formulário com o codigo:

    DoCmd.RunCommand acCmdRecordsGoToNext
    DoCmd.OpenReport "Impressão", acPreview, "", "[DADOS]![Matricula]=[Forms]![FmrInicial]![Matricula]", , acNormal


    DoCmd.OutputTo acOutputReport, "Impressão", "PDFFormat(*.pdf)", "caminho\" & Me.Nome & " - " & Me.rg & ".pdf", False, "", 0, acExportQualityScreen

    DoCmd.Close

    Daí e so ficar no botao dando enter. Vlw
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido] gerar relatórios em PDF - em lote Empty Re: [Resolvido] gerar relatórios em PDF - em lote

    Mensagem  DamascenoJr. 8/4/2023, 23:58

    Parabéns por descobrir a solução.

    Não esqueça de dar o tópico por resolvido clicando no botão resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    [Resolvido] gerar relatórios em PDF - em lote Empty Re: [Resolvido] gerar relatórios em PDF - em lote

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:43