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


4 participantes

    [Resolvido]Exportar relatório em PDF - Access 2003

    avatar
    LucianoSilva43
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 14/01/2017

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  LucianoSilva43 31/3/2021, 17:56

    Olá,

    Gostaria de saber se há alguma forma de exportar o relatório em PDF pelo VBA no access 2003.

    Procurei em diversos lugares porém não consegui localizar.


    Última edição por LucianoSilva43 em 27/4/2023, 14:11, editado 1 vez(es)
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  Belobo 1/4/2021, 01:12

    Ola amigo
    Nao sou programador mas tenho aprendido muita coisa aqui
    Em anexo segue um banco de dados simples que fiz pra vc da maneira que eu faco isso
    Resumindo
    Eu pego relatorio , gravo uma exportacao salva e o banco salva no diretorio C:\Users\Samsung\Documents
    Veja bem fiz um pequeno exemplo pra trazer alguma luz pra vc , mas com certeza existem codigos em VBA bem melhores que o que faço
    Anexos
    [Resolvido]Exportar relatório em PDF - Access 2003 Attachmentezyzip (1).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (437 Kb) Baixado 29 vez(es)
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  Belobo 2/4/2021, 19:35

    Ola Lucianosilva43

    Gostou da ideia que te passei
    Da um retorno
    Grande abraco
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1392
    Registrado : 07/12/2011

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  tauron 3/4/2021, 14:39

    Então Luciano, depende muito de suas intenções, eu, particularmente, trabalho com dois códigos em relatórios distintos:

    Aqui, eu visualizo o relatório e, decido onde salvar:

    Código:
    Private Function fncAbrir()

     Dim stDocName As String
     Dim accobj As AccessObject
     
     On Error GoTo Err_fncabrir

     stDocName = "Seu Relatório"
      
            
     'This function closes the report if the report is open and then re-opens the report.
      Set accobj = Application.CurrentProject.AllReports.Item(stDocName)
      If accobj.IsLoaded Then
        If accobj.CurrentView = acCurViewPreview Then
            DoCmd.Close acReport, stDocName
            DoCmd.OpenReport stDocName, acPreview
        End If
      Else
              DoCmd.OpenReport stDocName, acPreview
      End If

    DoCmd.OutputTo objectType:=acOutputReport, ObjectName:="Seu Relatório", OutputFormat:="pdf"

    Exit_fncabrir:
       Exit Function

    Err_fncabrir:
       MsgBox Err.Description
       Resume Exit_fncabrir

    End Function


    Aqui, eu não visualizo (a tela piscará com se fosse algum erro) mas o arquivo será salvo em uma pasta pré-determinada:

    Código:
    Private Function fncExp()
    DoCmd.OutputTo acOutputReport, "Seu Relatório", acFormatXLS, "endereço da pasta onde será salvo", False

    End Function
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1392
    Registrado : 07/12/2011

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  tauron 11/4/2021, 12:31

    E entao parceiro Rolling Eyes
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 12/07/2014

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  Belobo 12/8/2021, 05:12

    Me perdoe a resposta apos muito tempo . Utilizo o access nos horarios vagos para desenvolver . Deu certo obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  DamascenoJr. 12/8/2021, 21:51

    Estando tudo ok, não esqueça de marcar o tópico como 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]Exportar relatório em PDF - Access 2003 Empty Re: [Resolvido]Exportar relatório em PDF - Access 2003

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/2/2024, 11:51