MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]PDF e impressão dúvidas

    Compartilhe
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton em 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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 8/5/2016, 16:39

    Exportar relatorio filtrando dados(o que esta sendo visualizado.)
    [Você precisa estar registrado e conectado para ver este link.]

    Veja esse Material que lhe ajudara.
    Nao estou com PC, impossivel ver seu Aplicativo e testar...
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em 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...
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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.

    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em 8/5/2016, 23:33

    Entendo.
    Mas como criaria e escolheria o local onde salvar?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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 & ""
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em 8/5/2016, 23:37

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

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 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
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em 9/5/2016, 14:42

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

      Data/hora atual: 22/6/2018, 14:15