Програмиране
Visual Basic за приложения (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 като низ 'Редактирайте, за да добавите пълното име на файла към PDF файла, който искате да отворите strPDFFileName = "C:\examplefile.pdf" 'Това следващо функцията проверява дали файлът вече не е отворен If Not FileLocked (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() 'Първо извикайте функцията за отваряне, за да може PDF да се отвори преди отпечатване Извикайте OpenPDF 'Сега извикайте функцията за печат, за да може PDF да бъде отпечатан Извикайте PrintPDF End Sub
Просто копирайте средната част на горния код (между Sub и End Sub) в елемента на формуляра и задействане, което решите да използвате.
Неща, от които се нуждаете
Приложение на Microsoft Office
Приложение за четене на PDF
Бакшиш
Ако използвате версия 2007 и не виждате раздела „Разработчик“, щракнете върху бутона „Office“ и след това върху бутона „Опции“ в долната част на менюто. Кликнете върху „Показване на раздела „Разработчик“ на лентата“ и щракнете върху „OK“.
