![ABRIR arquivo PDF DENTRO de FORMULÁRIO EXCEL VBA](https://i.ytimg.com/vi/aZr5qSXsBhE/hqdefault.jpg)
Contente
O Visual Basic for Applications (VBA) é a linguagem de programação usada pelo Microsoft Office para que os aplicativos executem tarefas dinâmicas como, por exemplo, abrir e imprimir arquivos PDF. Para realizar isto, você precisará de um conhecimento básico da linguagem e do editor VBA, que vem instalado em todas as versões dos programas do Microsoft Office. Este código pode ser usado para qualquer um de seus aplicativos.
Instruções
-
Abra o editor de VBA no aplicativo do Office no qual você irá inserir o código. Vá em "Arquivo", depois em "Ferramentas", em seguida em "Macros" e finalmente em "Visual Basic Editor", em uma versão do Microsoft Office 2003 ou anterior. Para a edição de 2007, vá à guia "Desenvolvedor" e clique em Visual Basic.
-
Na janela de código, clique no lugar onde queira inserir o código.
-
Adicione o código para abrir um arquivo PDF. Seu código deve ficar parecido com este
Sub OpenPDF() Dim strPDFFileName As String 'Edite adicionando o nome completo do arquivo que você quer abrir no lugar de "strPDFFileName" = "C:examplefile.pdf" 'O comando seguinte verifica se o arquivo já está aberto: If Not FileLocked(strPDFFileName) e então 'Se o resultado for False,continue abrindo o arquivo PDF Documents.Open strPDFFileName) End If End Sub
copie e cole este código na janela de códigos. A única parte que você precisará mudar é o caminho completo do arquivo PDF que você quer abrir. Então, substitua "C:examplefile.pdf" pelo caminho de seu arquivo.
-
O código para imprimir o arquivo é
Sub PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'Este é o caminho completo para o Adobe Reader ou para o Acrobat em seu computador sAdobeReader = "C:Program FilesAdobeAcrobat 6.0ReaderAcroRd32.exe" RetVal = Shell(sAdobeReader & "/P" & Chr(34) & sStrPDFFileName & Chr(34), 0) End Sub
Você deve mudar o caminho do leitor de PDF conforme esteja no seu computador, a pasta Arquivos de programa pode estar em inglês (Program Files) ou ter alguma indicação na frente, como (x64).
-
Use um gatilho (trigger) para que o código saiba quando executar as funções. Use o gatilho que quiser, um formulário, um botão, uma verificação ou outros itens de formulário. Por exemplo, use a declaração "Click" de um botão. Quando o botão for clicado, o documento PDF abrirá e será imprimido. O código se parece com isso:
Sub CommandButton_Click() 'Ative a função de abrir antes, para que o PDF abra antes de ser impresso Call OpenPDF Então, ative a de imprimir Call PrintPDF End Sub
Copie a parte do meio do código acima (entre Sub e End Sub) no item de formulário e no gatilho que for utilizar.
Dicas
- Caso esteja usando a versão 2007 do Microsoft Office e não veja a guia "Desenvolvedor", clique no botão do Office, em "Opções" clique em "Personalizar" e marque a caixa de seleção "Mostrar guia Desenvolvedor na Faixa de Opções" e clique em "OK".
O que você precisa
- Programa do Microsoft Office
- Programa leitor de PDF