Exibir relatório em formato PDF

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.

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?

Olá a todos,

E continuando o pensamento do Colega Ismael:

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

Abraço

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

https://www.maximoaccess.com/t9034-resolvidorelatorio-em-pdf-gera-salva-mas-nao-fica-aberto

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?

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.

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

Olá a todos

Andre Raimundo, a partir deste exemplo:
www.maximoaccess.com/t26904-webbrowser-controle-navegador

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

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?

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

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.

Olá Andre Raimundo,

Tente assim:

Código:

Application.FollowHyperlink "C:\Pasta\NomeFicheiro.pdf"

Veja aqui se tiver dúvidas:
https://www.maximoaccess.com/t24143-abrir-arquivo-pdf
https://www.maximoaccess.com/t8000-resolvidoabrir-arquivo-externo-ao-sistema-com-extensao-tif
https://www.maximoaccess.com/t17932-resolvidoabrir-pagina-de-web-ao-clicar-no-botao

Abraço

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?

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

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

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.

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

... e que tal gerar um ficheiro TXT ?  

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

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.

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:
https://www.maximoaccess.com/t1115-busca-no-forum-search

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

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

Olá, veja se ajuda:

https://www.maximoaccess.com/t27707-resolvidoexportar-dados-formulario-e-tabela-para-o-word

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

Abraço

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

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):
https://www.maximoaccess.com/t10980-resolvidocomando-shell-para-abrir-um-arquivo-excel-ou-outro-comando

Abraço