MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]PDF e impressão dúvidas

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em Dom 08 Maio 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 08 Maio 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em Dom 08 Maio 2016, 23:33

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 08 Maio 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em Dom 08 Maio 2016, 23:37

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Dom 08 Maio 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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Mylton em Seg 09 Maio 2016, 14:42

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

      Data/hora atual: Sab 10 Dez 2016, 04:55