Программирование
Visual Basic для приложений (VBA) - это язык программирования, используемый в Microsoft Office для выполнения динамических задач приложениями, одна из которых - открытие и печать файлов PDF. Для выполнения этой задачи вам необходимо базовое понимание языка VBA и редактора VBA, который поставляется с каждой версией программ Microsoft Office. Этот код можно использовать для любого приложения Microsoft Office.
Шаг 1
Откройте редактор VBA в приложении Microsoft Office, в которое вы хотите ввести код. Щелкните «Файл»> «Инструменты»> «Макросы»> «Редактор Visual Basic» в приложении Microsoft Office 2003 или более ранней версии. Нажмите «Вкладка« Разработчик »»> «Visual Basic» в выпуске 2007 Microsoft Office.
Видео дня
Шаг 2
Щелкните в любом месте окна кода, куда вы хотите вставить код.
Шаг 3
Добавьте код, чтобы открыть файл PDF. Ваш код должен выглядеть примерно так:
Sub OpenPDF () Dim strPDFFileName As String 'Отредактируйте, чтобы добавить полное имя файла в файл PDF, который вы хотите открыть strPDFFileName = "C: \ examplefile.pdf"' Это следующее функция проверяет, не открыт ли уже файл. If Not FileLocked (strPDFFileName) Then 'Если возвращается значение False, продолжить открытие PDF-файла Documents. Открыть strPDFFileName) End If End Sub
Скопируйте и вставьте этот код в окно кода. Единственная часть кода, которую вам нужно будет изменить, - это полный путь к файлу PDF, который вы хотите открыть. Итак, замените «C: \ examplefile.pdf» на свой собственный путь и имя файла.
Шаг 4
Добавьте код для печати PDF-файла. Код печати:
Sub PrintPDF (strPDFFileName as string) Dim sAdobeReader as String 'Это полный путь к приложению 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 () 'Сначала вызовите функцию открытия, чтобы PDF-файл мог открыться перед печатью Вызов OpenPDF' Теперь вызовите функцию печати, чтобы можно было распечатать PDF-файл. Вызов PrintPDF End Sub
Просто скопируйте среднюю часть приведенного выше кода (между Sub и End Sub) в элемент формы и инициируйте запуск, который вы решите использовать.
Вещи, которые вам понадобятся
Приложение Microsoft Office
Приложение для чтения PDF-файлов
Подсказка
Если вы используете версию 2007 и не видите вкладку «Разработчик», нажмите кнопку «Офис», а затем кнопку «Параметры» в нижней части меню. Щелкните «Показать вкладку разработчика на ленте» и нажмите «ОК».
