[Resolvido]Duvida - Abrir aquivo PDF dentro do Access

Relacionado com o exemplo:
http://maximoaccess.forumeiros.com/t1864-abrir-arquivo-pdf-dentro-do-access-o-retorno


Boa tarde

Tentei usar a receita mas não resultou.
Preciso ver um exemplo...

Olá Assis, boa tarde!!

Rapaz dei mais uma olhada aqui na receita e acho que deu uma azedada rsrsrsr, o exemplo funciona 100% quando chamo um PDF em uma pasta na rede (\\servidor\c\...), mas localmente (C:\pasta\) não esta sendo apresentado o resultado...

Vou dar uma verificada e lhe deixo informado...

Sds,

Pablo

Para redimir a azedada na receita acima (somente chamar PDF na rede, não funcionando com arquivos locais) posto abaixo um exemplo do uso da OCX da própria acrobat...

Para mais informações visitem: http://search.cpan.org/~mdootson/Wx-ActiveX-0.15/lib/Wx/ActiveX/Acrobat.pm#PrintAll

E se descobrirem algo mais me avisem também!!!

Deve ser referenciado o componente: ADOBE ACROBAT X.X TYPE LIBRARY

Favor comentar o resultado obtido para que possamos melhorar a cada dia!!!

Sds,

Pablo

Application.FollowHyperlink ' " Caminho\nome\extenção "

Olá amigo, obrigado pela dica, vamos dar uma olhada!!! Resolvi o problema usando diretamento o controle do Adobe... O que preciso agora realmente é transformar o conteúdo de um WebBrowser control, ou seja seu HTML em PDF sabe alguma coisa?!?

Pablo
Como listar os PDF nesta caixa de listagem ?

Obrigado

Boas amigo Assis!!! A quanto tempo...

Vejo que agora é uma Very Importat Person, muito chique!!!

Veja se o código abaixo lhe auxilia, se não me fale que tento montar o exemplo...

Sub ListaArquivos()

'VERIFICA SE EXISTE UMA LISTA PREENCHIDA, SE SIM A LIMPA
If lstArqDiretorio.ListCount > 0 Then

For ContaItem = (lstArqDiretorio.ListCount - 1) To 0 Step -1

lstArqDiretorio.RemoveItem (ContaItem)

Next ContaItem

End If

Arquivo = Dir(MainPath & cboAno & "\" & cboMes & "\*.*", vbArchive)

Do While Arquivo <> ""

lstArqDiretorio.AddItem (MainPath & cboAno & "\" & cboMes & "\" & ";" & Arquivo)

Arquivo = Dir

Loop

End Sub

Saudações...

Pablo

Viva Pablo

Será que dá para montar um exemplo? Obrigado

Amigo Assis, segue exemplo...

Deve criar uma pasta na raiz, sendo "C:\Listagem";
Salve o conteúdo do arquivo na pasta...

A estrutura da pasta é criada manualmente, sendo buscada pele rotina, existe um PDF para visualização na pasta 2012 > 07-JULHO...

Tem 2 arquivos, sendo exemplos em versões diferentes...

Sds,


Pablo

Amigo Assis, conseguiu? É interessante o feed back!!!

Boa tarde!
Pablo achei interessante e até adaptei no meu BD este exemplo, agora teria como aumentar a tela de visão do PDF sem precisar aumentar o Zoom?
É que tenho arquivos tamanho A4 e ele fica pequeno demais para visualizar

Boas amigo!!!

Esse controle é temoso, ele não permite que o dimensionemos via código. O que ele faz, é assumir o tamanho que você o configurou da primeira vez que o adicionou no formulário. Ou seja, se precisa no tamanho A4, na hora de inserir já o dimensione neste tamanho que ficará tranquilamente, se precisar redimensionar o remova e adicione novamente no tamanho que necessita e o atribua o mesmo nome de controle que estava utilizando...

Deu para entender?!?

Sds,

Pablo

excelente

Nota 10