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

Escrito por tiesha whatley | Traduzido por andre trapani possignolo
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como usar o VBD para abrir e imprimir um arquivo em PDF
Programação (ANSI image by DBX60 from Fotolia.com)

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.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

O que você precisa?

  • Programa do Microsoft Office
  • Programa leitor de PDF

Lista completaMinimizar

Instruções

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

  2. 2

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

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

Dicas & Advertências

  • 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\".

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível