Visual Basic for Applications (VBA) é a linguagem de programação usada com o Microsoft Office para fazer os aplicativos executarem 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. Esse código pode ser usado para qualquer um dos aplicativos do Microsoft Office.
Etapa 1
Abra o editor VBA no aplicativo do Microsoft Office no qual você deseja que o código seja inserido. Clique em "Arquivo"> "Ferramentas"> "Macros"> "Editor do Visual Basic" em um aplicativo do Microsoft Office 2003 ou anterior. Clique na guia "Desenvolvedor"> "Visual Basic" na edição 2007 do Microsoft Office.
Etapa 2
Clique em qualquer lugar na janela de código onde você deseja inserir o código.
Etapa 3
Adicione o código para abrir o arquivo PDF. Seu código deve ficar assim:
Sub OpenPDF() Dim strPDFFileName As String 'Editar para adicionar o nome completo do arquivo PDF que você deseja abrir strPDFFileName ="C:\examplefile.pdf" 'Esta próxima função verifica se o arquivo já não está aberto If Not FileLocked(strPDFFileName) Then 'Se retornar False, continue abrindo o arquivo PDF Documents.Open 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ê precisará alterar é o caminho completo para o arquivo PDF que deseja abrir. Portanto, substitua o "C:\examplefile.pdf" pelo seu próprio caminho e nome de arquivo.
Etapa 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 "Click" de um botão. Quando o botão for clicado, o documento PDF será aberto e impresso. O código fica assim:
Sub CommandButton_Click() 'Chame a função open primeiro para que o PDF possa abrir antes de imprimir Call OpenPDF 'Agora chame a função print para que o PDF possa ser impresso Call PrintPDF End Sub
Basta copiar a parte do meio do código acima (entre o Sub e o End Sub) no item de formulário e no gatilho que você decidir usar.
Dica
Se você estiver usando a versão 2007 e não vir 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”.
