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

    Exibir relatório em formato PDF

    Compartilhe

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Exibir relatório em formato PDF

    Mensagem  afraimundo em 29/3/2018, 14:01

    Boa tarde,

    Necessitava de criar uma forma de abrir/exibir um relatório access em formato pdf. Não necessito de o guardar, apenas que seja exibido no computador com base na informação constante do relatório.

    Alguém me pode ajudar?

    Obrigado.

    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 293
    Registrado : 11/12/2017

    Re: Exibir relatório em formato PDF

    Mensagem  Ismael Silva em 30/3/2018, 23:34

    Amigo, deixa eu lhe pergutar: Não lhe ajuda a opção de salvar o seu relatório e aí sim visualizar em formato de PDF?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 31/3/2018, 11:43

    Olá a todos,

    E continuando o pensamento do Colega Ismael:

    Após a visualização eliminava o ficheiro criado (temporariamente).

    Abraço
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1060
    Registrado : 18/07/2012

    Exibir relatório em formato PDF

    Mensagem  toyebom em 31/3/2018, 23:03

    Eu utilizo este código:

    no botão "IMPRIMIR", no comando "ao imprimir" tenho

    Private Sub Comando570_Click() 'Comando570 é o nome do meu butão
    Dim strArquivo As String
    Dim strLocal As String
    Dim strReportName As String
    Dim numCop As Integer
    DoCmd.OpenReport "Oficio Normal1", acViewPreview, , "[001] = " & [001] 'Oficio Normal1 - nome do meu relatório e [001] chave primária
    DoCmd.Maximize
    strReportName = Replace([7], "/", "-") & "_" & Me![001] & ".pdf" 'aqui guardo com o nome que quero, neste caso com o que escrevo no campo 7 alterando "/" para "-" mais "_" e a chave primária, visto eu no campo 7 escrever tipo 123/12-SR, ficando tipo 123-12-SR_4321
    strLocal = CurrentProject.Path & "\Oficios Expedidos\" & strArquivo 'aqui guarda na pasta "oficios expedidos" que criei dentro da pasta onde tenho a bd
    DoCmd.OutputTo acOutputReport, "Oficio Normal1", acFormatPDF, strLocal + strReportName, True 'abre o pdf
    DoCmd.Close 'fecha a visualização do relatório access
    End Sub

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 1/4/2018, 11:13

    Desde já obrigado pelas vossas respostas e ajudas.

    Compreendo o que me está a dizer e faria sentido na maior parte das situações, mas aqui o objectivo é criar uma base de dados com textos tipo, que devem ser copiados para uma outra aplicação externa oracle.

    Para mim, interessa-me que ao clicar no botão com o texto pretendido, a base de dados abra um pdf com o texto, apenas para permitir a cópia para a outra base de dados que referi. Não me interessa guardar qualquer registo ou ficheiro pdf.

    Será possível?
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1060
    Registrado : 18/07/2012

    Exibir relatório em formato PDF

    Mensagem  toyebom em 2/4/2018, 18:18

    Acho que o pdf tens mesmo de guardar e no fim quando já não queres podes apagá-lo.
    Podes tentar gerar um código que faça isso e colocas no cronómetro do formulário ou num botão.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 3/4/2018, 00:04

    Olá a todos,

    Creio ser possível, mas se já tem a base de dados com o texto (em Access) e pretende copiar o texto, pergunto, porque não coloca num campo de um formulário.

    Pode postar a base de dados com alguns registos de amostragem para se compreender melhor.

    Abraço
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 3/4/2018, 15:14

    Olá a todos

    Andre Raimundo, a partir deste exemplo:
    [Você precisa estar registrado e conectado para ver este link.]

    Adaptei com o seguinte código:
    Código:
    Private Sub cmdVer_Click()
    'Álvaro Teixeira (ahteixeira) 2018 para MaximoAccess

    Dim tmpPDF As String
    tmpPDF = Application.CurrentProject.Path & "\_tmp.pdf"

        'Me.WB2.ScriptErrorsSuppressed() = True 'access 2010
        Me.WB2.Silent = True 'access 2007 e menor
        
        Me.WB2.Visible = False
        Me.WB2.Navigate ""  'para não dar erro ao navegar em varios registos
        
        DoCmd.OutputTo acOutputReport, "rpt_cartas", acFormatPDF, tmpPDF, False

        Me.WB2.Navigate tmpPDF
        Me.WB2.Visible = True
    End Sub

    Veja se é dentro disto que necessita:

    cld.pt/dl/download/ed2ff575-2329-4678-be5a-a3afad6ce953/WebBrowser_VerPDFdeRelatorio.zip

    Copiar link e colar no browser

    Abraço a todos
    Anexos
    WebBrowser_VerPDFdeRelatorio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 25 vez(es)


    Última edição por ahteixeira em 4/4/2018, 16:55, editado 1 vez(es)

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 4/4/2018, 10:53

    Caro ahteixeira,

    Desde já obrigado pela ajuda e pelo exemplo enviado.

    Está muito perto do que pretendo, mas penso que será mais simples o que pretendo.

    O PDF que pretendo que seja gerado para visualização servirá apenas para copiar a informação constante do PDF para que a mesma seja colada numa base de dados ORACLE externa.

    O ideal era que abri-ser o documento no Acrobat Reader e posteriormente o utilizador copiava informação a partir desse PDF com Ctrl+C.

    É possível?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 4/4/2018, 14:37

    Olá Andre Raimundo,

    Obrigado pelo feedback.

    Estou no telemóvel, mas se efetuar uma pesquisa no fórum não falta exemplos de como abrir o PDF ou outro tipo de extensão, talvez abrir hiperligaçao.

    Se não conseguir avise.

    Abraço

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 4/4/2018, 15:07

    ahteixeira,

    Posso não ter sabido pesquisar correctamente, mas aquilo que consegui encontrar apenas me permite guardar o ficheiro PDF, o que não queria de todo.

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 4/4/2018, 16:53

    Olá Andre Raimundo,

    Tente assim:
    Código:
    Application.FollowHyperlink "C:\Pasta\NomeFicheiro.pdf"

    Veja aqui se tiver dúvidas:
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1060
    Registrado : 18/07/2012

    Exibir relatório em formato PDF

    Mensagem  toyebom em 4/4/2018, 18:12

    Se não queres guardar o PDF não compreendo o porquê de o gerar, se é só para copiar e colar porque não fazes directamente da bd?


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 10/4/2018, 10:21

    Boas,

    Estive ocupado e tive que me afastar uns dias deste projecto.

    Esta base de dados tem por único objectivo compilar uma série de fundamentações predefinidas a serem copiadas para uma base de dados Oracle.

    A questão é que ao tentar copiar todo o texto do relatório de uma vez só não consigo, pois o relatório é composto por várias caixas de texto com origem na tabela.

    A minha ideia de gerar o PDF era porque permitia copiar todo o conteúdo de uma vez só e colar posteriormente no Oracle.

    Haverá outra forma?

    Para entenderem melhor anexo a BD e peço o favor de executarem a Macro1 para terem melhor a ideia do que pretendo.

    Obrigado
    Anexos
    BD_GDOCUMENTAL.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 15 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 10/4/2018, 12:31

    Olá Andre Raimundo,

    Aparentemente pode criar um campo que receba os dados de vários campos e assim fica tudo junto para copiar de uma só vez.

    Diz "permitia copiar todo o conteúdo" acho que deve explicar melhor, pois poderá ser:

    a) Copiar colar, registo a registo
    b) Copiar colar, vários registos de uma só vez
    c) Criar ficheiro txt,xls, outro e importar no Oracle
    d) Consulta atualizar, adicionar

    Deverermos saber a origem da informação (se é um campo ou vários, se junta alguns) e o destino (se é um campo ou vários, etc)
    Além disso de que forma é que podemos alimentar a base de dados, neste caso Oracle:

    1) Importação direta
    2) Sistema de integração
    3) Formulario do aplicativo para lançamento (ou paste)

    Estou certo que pode haver vária alternativas para o mesmo problema.
    Ficamos aguardar mais detalhes.

    Abraço


    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 10/4/2018, 13:26

    ahteixiera,

    O objectivo é copiar colar, vários registos de uma só vez.

    Quanto à origem, será sempre a mesma: a duas tabelas "DADOS_CE" (campos: "NOME_CE", "MORADA_CE", "E_MAIL_CE") e "INDEFERIDOS" (Campo: "TEXTO") que constam no ficheiro que enviei.

    No Oracle a informação será para ser colada numa única caixa de texto MEMO, todo seguido.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 10/4/2018, 14:30

    Olá André, já ficou melhor a explicação, assim fica mais fácil compreender.

    ... e que tal gerar um ficheiro TXT ?   Wink

    Altere o código do seu botão do exemplo que postou com o código abaixo e teste:
    Código:
    Private Sub Comando6_Click()
    'Álvaro Teixeira (ahteixeira) 2018 para MaximoAccess

    ficheiro = Application.CurrentProject.Path & "\exportacao.txt" 'caminho e ficheiro

       Open ficheiro For Output As #1 'abrir ficheiro para escrita
                    
            Dim db As Database, RS As Recordset
            Dim strSQL As String
            Set db = CurrentDb
                strSQL = "SELECT INDEFERIDOS.ID, INDEFERIDOS.TEXTO, DADOS_CE.NOME_CE, DADOS_CE.MORADA_CE, DADOS_CE.E_MAIL_CE FROM INDEFERIDOS, DADOS_CE WHERE INDEFERIDOS.ID=1;" 'origem dos dados, aqui pode configurar filtros do pretendido
                Set RS = db.OpenRecordset(strSQL)
                With RS
                    Do While Not .EOF 'vai correr e adicionar linha a linha
                        Print #1, RS.Fields(0) & vbNewLine & RS.Fields(1); vbNewLine & RS.Fields(2) & vbNewLine & RS.Fields(3) & vbNewLine & RS.Fields(4)
                        .MoveNext
                    Loop
                End With
            
            RS.Close
            db.Close
        
        Close #1
        
        MsgBox "Efetuado para: " & ficheiro, vbInformation, ""
    End Sub

    Abraço

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 10/4/2018, 15:02

    ahteixeira,

    Está muito melhor. Mais 2 pedidos:

    1) Há hipótese de ser numa aplicação com texto formatado (Wordpad ou Word ?)

    2) É possível que em vez de guardar num ficheiro neste ou noutro formato que sugeri, abra de imediato essa aplicação com o texto exportado?


    Obrigado pela paciência e ajuda.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 10/4/2018, 15:13

    Olá André, obrigado pelo retorno.

    Sim, é possível e existe exemplos no fórum.
    Estou no telemóvel, tente uma "Busca" aqui do fórum, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Quanto à formatação, exige mais código mas também é possível.
    Abraço

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 11/4/2018, 14:03

    ahteixeira,

    Não consegui pelas pesquisas encontrar o que pretendia.

    Abusando da sua paciência será que me consegue ajudar, agora que estou tão perto do objectivo?

    Obrigado
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 11/4/2018, 14:37

    Olá, veja se ajuda:

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

    Estou no telemóvel, depois pesquiso da shell executar programa associado.

    Abraço

    afraimundo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 39
    Registrado : 19/10/2016

    Re: Exibir relatório em formato PDF

    Mensagem  afraimundo em 12/4/2018, 10:22

    ahteixeira,

    Não consegui pelo link que me enviou encontrar nada que me ajudasse a adaptar as ultimas duvidas que coloquei:

    1) Há hipótese de ser numa aplicação com texto formatado (Wordpad ou Word ?)

    2) É possível que em vez de guardar num ficheiro neste ou noutro formato que sugeri, abra de imediato essa aplicação com o texto exportado?

    Vou precisar mesmo da vossa preciosa ajuda.

    Obrigado
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5590
    Registrado : 15/03/2013

    Re: Exibir relatório em formato PDF

    Mensagem  ahteixeira em 12/4/2018, 11:40

    Olá André,

    Estou sem tempo e no telemóvel.
    Já mostrei o caminho das pedras.

    Repare que em txt pode ser aberto pelos programas que faz referência.

    Quanto à formatação e exportar, volto a repetir, não falta exemplos.
    Usene abuse da BUSCA.

    Quanto à Shell, veja (não falta):
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: 19/11/2018, 03:40