Como Usar VBA para Abrir e Imprimir Arquivo PDF

Visual Basic for Applications (VBA) é a linguagem de programação usada com Microsoft Office para fazer as aplicações realizarem tarefas dinâmicas, uma das quais é abrir e imprimir arquivos PDF. Para realizar esta tarefa, você precisa de entendimento básico da linguagem VBA e do editor VBA que vem instalado com todas as versões dos programas Microsoft Office. Este código pode ser usado em qualquer aplicação do Microsoft Office.

Passo 1

Abra o editor VBA na aplicação Microsoft Office onde deseja inserir o código. Clique em "Arquivo" > "Ferramentas" > "Macros" > "Editor do Visual Basic" em aplicações do Office 2003 ou anterior. Clique na "aba Desenvolvedor" > "Visual Basic" na edição 2007 do Office.

Passo 2

Clique em qualquer lugar na janela de código onde deseja inserir o código.

Passo 3

Adicione o código para abrir o arquivo PDF. Seu código deve parecer com isto:

Sub AbrirPDF()
    Dim strPDFFileName As String
    'Edite para adicionar o caminho completo do arquivo PDF que deseja abrir
    strPDFFileName = "C:\exemplo.pdf"
    'Esta função verifica se o arquivo não está já aberto
    If Not FileLocked(strPDFFileName) Then
        'Se retornar False, continue abrindo o PDF
        Documents.Open strPDFFileName
    End If
End Sub

Copie e cole este código na sua janela de código. A única parte que precisa alterar é o caminho completo para o arquivo PDF que deseja abrir. Substitua "C:\exemplo.pdf" pelo seu próprio caminho e nome de arquivo.

Passo 4

Adicione o código para imprimir o arquivo PDF. O código de impressão é:

Sub ImprimirPDF(strPDFFileName As String)
    Dim sAdobeReader As String
    'Este é o caminho completo para o Adobe Reader ou Acrobat no seu computador
    sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"
    RetVal = Shell(sAdobeReader & " /P" & Chr(34) & strPDFFileName & Chr(34), 0)
End Sub

A única parte deste código que precisa ser alterada é o caminho completo para o Adobe Reader, Acrobat ou qualquer leitor PDF no seu computador.

Passo 5

Use um gatilho para chamar as funções. É assim que o código saberá quando executar. Use o gatilho que quiser: um formulário, botão, caixa de seleção ou outro item 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 então imprimirá. O código fica assim:

Sub CommandButton_Click()
    'Chame a função abrir primeiro para que o PDF abra antes de imprimir
    Call AbrirPDF
    'Agora chame a função imprimir para que o PDF seja impresso
    Call ImprimirPDF
End Sub

Copie apenas a parte central do código acima (entre Sub e End Sub) para o item de formulário e gatilho que decidir usar.

Dica

Se estiver usando a versão 2007 e não vir a aba "Desenvolvedor", clique no botão "Office" e depois no botão "Opções" na parte inferior do menu. Clique em "Mostrar aba Desenvolvedor na faixa de opções" e clique em "OK".

• Como Adicionar WWW ao Meu Nome de Domínio
• Como Criar um Mapa no Photoshop