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 : 523
    Registrado : 23/08/2010

    [Resolvido]PDF e impressão dúvidas

    Mensagem  Mylton em Dom 08 Maio 2016, 12: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.]
    Anexos
    Exportar.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 4 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 08 Maio 2016, 12: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 : 523
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Dom 08 Maio 2016, 19: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 : 3422
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Dom 08 Maio 2016, 19: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 : 523
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Dom 08 Maio 2016, 19: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 : 3422
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Dom 08 Maio 2016, 19: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 : 523
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Dom 08 Maio 2016, 19: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 : 3422
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Dom 08 Maio 2016, 19: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 : 523
    Registrado : 23/08/2010

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

    Mensagem  Mylton em Seg 09 Maio 2016, 10:42

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

      Data/hora atual: Qui 23 Nov 2017, 13:05