Програмування
Visual Basic for Applications (VBA) — це мова програмування, яка використовується в Microsoft Office для виконання динамічних завдань, одним з яких є відкриття та друк PDF-файлів. Щоб виконати це завдання, вам потрібне базове розуміння мови VBA та редактора VBA, який встановлюється в кожній версії програм Microsoft Office. Цей код можна використовувати для будь-якої програми Microsoft Office.
Крок 1
Відкрийте редактор VBA у програмі Microsoft Office, у яку потрібно ввести код. Натисніть «Файл» > «Інструменти» > «Макроси» > «Редактор Visual Basic» у програмі Microsoft Office 2003 або раніше. Натисніть на вкладку «Розробник» > «Visual Basic» у версії Microsoft Office 2007 року.
Відео дня
Крок 2
Клацніть будь-де у вікні коду, куди потрібно вставити код.
Крок 3
Додайте код, щоб відкрити PDF-файл. Ваш код має виглядати приблизно так:
Sub OpenPDF() Dim strPDFFileName As String 'Редагувати, щоб додати повне ім'я файлу до PDF-файлу, який потрібно відкрити strPDFFileName = "C:\examplefile.pdf" 'Далі функція перевіряє, чи файл ще не відкритий. Якщо файл не заблокований (strPDFFileName) Потім «Якщо він повертає значення False, то продовжуйте відкривати PDF-файл Документи. Відкрийте strPDFFileName) End If End Sub
Скопіюйте та вставте цей код у вікно коду. Єдина частина коду, яку вам потрібно буде змінити, - це повний шлях до PDF-файлу, який ви хочете відкрити. Отже, замініть «C:\examplefile.pdf» на свій власний шлях до файлу та ім’я.
Крок 4
Додайте код для друку PDF-файлу. Код друку:
Sub PrintPDF (strPDFFileName як рядок) Dim sAdobeReader як рядок «Це повний шлях до програми Adobe Reader або Acrobat на вашому комп’ютері sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) Кінець суб
Єдина частина цього коду, яку потрібно змінити, — це повний шлях до Adobe Reader, Acrobat або будь-якого засобу для читання PDF на вашому комп’ютері.
Крок 5
Використовуйте тригер для виклику функцій. Таким чином код буде знати, коли його виконати. Використовуйте будь-який тригер, який хочете; форму, кнопку, прапорець або інший елемент форми. Наприклад, скористайтеся оголошенням кнопки "Click". Після натискання кнопки PDF-документ відкриється, а потім надрукується. Код виглядає так:
Sub CommandButton_Click() 'Спочатку викликайте функцію open, щоб PDF можна було відкрити перед друком Викличте OpenPDF 'Тепер викличте функцію друку, щоб PDF можна було роздрукувати Викличте PrintPDF End Sub
Просто скопіюйте середню частину наведеного вище коду (між Sub і End Sub) в елемент форми і активатор, який ви вирішите використовувати.
Речі, які вам знадобляться
Програма Microsoft Office
Програма для читання PDF
Порада
Якщо ви використовуєте версію 2007 і не бачите вкладку «Розробник», натисніть кнопку «Office», а потім кнопку «Параметри» внизу меню. Натисніть «Показати вкладку «Розробник» на стрічці» та натисніть «ОК».
