×
Loading ...

Como usar o VBD para abrir e imprimir um arquivo em PDF

Atualizado em 23 março, 2017

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

Programação (ANSI image by DBX60 from Fotolia.com)
  1. 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.

    Loading...
  2. Na janela de código, clique no lugar onde queira inserir o código.

  3. 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.

  4. 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 Files\Adobe\Acrobat 6.0\Reader\AcroRd32.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).

  5. 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.

Loading...

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

Referências

Loading ...
Loading ...