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]PDF e impressão dúvidas

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]PDF e impressão dúvidas Empty [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton 8/5/2016, 16:11

    Boa tarde a todos

    No exemplo abaixo o botão onde visualizamos o relatório tá ok.
    O de imprimir dá erro.
    E o de exportar pdf, exporta todo o relatório e não apenas o visualizado.
    Como poderia ver antes de imprimir e imprimir depois?
    Escolher ou criar uma pasta para escolher essa pasta e depois exportar pdf, sendo apenas o escolhido.

    Obrigado

    https://www.dropbox.com/s/7ziywmryvnkhcov/Teste%203.accdb?dl=0
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  FabioPaes 8/5/2016, 16:39

    Exportar relatorio filtrando dados(o que esta sendo visualizado.)
    http://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1

    Veja esse Material que lhe ajudara.
    Nao estou com PC, impossivel ver seu Aplicativo e testar...
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton 8/5/2016, 23:15

    Boa noite.
    Tenho esse exemplo. Contudo, apesar da importancia do avelino para o nosso access, eu, dentro de minha ignorancia na programacao vba, nao evidenciei elos entre.
    Se alguém puder ajudar...
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  FabioPaes 8/5/2016, 23:31

    Meu amigo, esse material do Avelino tem tudo a Ver com sua duvida, Exportar para PDF. Veja como fica adaptado para seu Aplicativo, Copiado e Colado do Link a cima, adaptado apenas para filtrar pelo Codigo do Advogado e nome do Relatorio.


    Mude o Comando do Seu Botão que exporta para PDF e coloque este:
    Código:

    Private Sub ComandoPDF_Click()
    Dim strArquivo As String
    Dim strLocal As String
     
    strArquivo = "Cadastro de Advogado" & ".pdf"
    strLocal = CurrentProject.Path & "\" & strArquivo
     
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "1", acViewPreview, , "CodigoAdvogado=" & Me.CodigoAdvogado, acHidden
     
    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "1", acFormatPDF, strLocal
     
    'Fecha o relatório
    DoCmd.Close acReport, "1"
       
    End Sub


    Esse comando pegarar o seu relatorio 1, abrira filtrando apenas pelo advogado que esta na tela, e salvara na pasta do seu Aplicativo.

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton 8/5/2016, 23:33

    Entendo.
    Mas como criaria e escolheria o local onde salvar?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  FabioPaes 8/5/2016, 23:35

    Ja o do Botão imprimir vc estava no caminho certo, apenas se esqueceu de algumas coisinha la...

    Mude o comando do botao imprimir para:
    Código:
    Private Sub ComandoImprimir_Click()
        DoCmd.OpenReport "1", acViewPreview, , "[Codigoadvogado] = " & Me.CodigoAdvogado & ""
    End Sub

    Veja onde estava errando: ... "[Codigoadvogado] = " & Me.CodigoAdvogado & ""
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton 8/5/2016, 23:37

    Ok.
    Chegando em casa mais tarde vejo e respondo.
    Obrigado.
    Feliz dia de hj.
    Abs
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  FabioPaes 8/5/2016, 23:40

    Para Perguntar onde salvar o Relatorio mude para:
    Código:
    Private Sub ComandoPDF_Click()
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "1", acViewPreview, , "CodigoAdvogado=" & Me.CodigoAdvogado, acHidden
     
    'Gera arquivo pdf do relatório previamente aberto e filtrado e PERGUNTA ONDE SALVAR.
    DoCmd.OutputTo acOutputReport, "1", acFormatPDF, , True
     
    'Fecha o relatório
    DoCmd.Close acReport, "1"
       
    End Sub
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 23/08/2010

    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton 9/5/2016, 14:42

    Perfeito.
    Muito obrigado Fábio.
    Boa semana.
    Abs

    Conteúdo patrocinado


    [Resolvido]PDF e impressão dúvidas Empty Re: [Resolvido]PDF e impressão dúvidas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 12:44