Como usar o VBA para abrir e imprimir um arquivo PDF

...

Programação

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

Passo 1

Abra o editor VBA no aplicativo Microsoft Office no qual deseja que o código seja inserido. Clique em "Arquivo"> ​​"Ferramentas"> "Macros"> "Editor Visual Basic" em um aplicativo do Microsoft Office 2003 ou anterior. Clique na guia "Desenvolvedor"> "Visual Basic" na edição 2007 do Microsoft Office.

Vídeo do dia

Passo 2

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

etapa 3

Adicione o código para abrir o arquivo PDF. Seu código deve ser semelhante a este:

Sub OpenPDF () Dim strPDFFileName As String 'Editar para adicionar o nome do arquivo completo ao arquivo PDF que você deseja abrir strPDFFileName = "C: \ examplefile.pdf"' Este próximo função verifica se o arquivo já não está aberto If Not FileLocked (strPDFFileName) Then 'Se retornar False, então continue abrindo o arquivo PDF Documentos. Abrir strPDFFileName) End If End Sub

Copie e cole este código em sua janela de código. A única parte do código que você precisa alterar é o caminho completo para o arquivo PDF que deseja abrir. Portanto, substitua "C: \ examplefile.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 PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'Este é o caminho completo para o aplicativo Adobe Reader ou Acrobat em seu computador sAdobeReader = "C: \ Arquivos de programas \ Adobe \ Acrobat 6.0 \ Reader \ AcroRd32.exe" RetVal = Shell (sAdobeReader & "/ P" & Chr (34) & sStrPDFFileName & 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 de PDF em seu computador.

Etapa 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 "Clique" de um botão. Quando o botão é clicado, o documento PDF será aberto e impresso. O código é parecido com este:

Sub CommandButton_Click () 'Chame a função abrir primeiro para que o PDF possa abrir antes de imprimir Chame OpenPDF' Agora chame a função de impressão para que o PDF possa ser impresso Chame PrintPDF End Sub

Basta copiar a parte intermediária do código acima (entre Sub e End Sub) para o item de formulário e o gatilho que você decidir usar.

Coisas que você precisa

  • Um aplicativo do Microsoft Office

  • Aplicativo leitor de PDF

Dica

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