Programmeerimine
Visual Basic for Applications (VBA) on programmeerimiskeel, mida kasutatakse koos Microsoft Office'iga, et panna rakendused täitma dünaamilisi ülesandeid, millest üks on PDF-failide avamine ja väljaprintimine. Selle ülesande täitmiseks vajate põhiteadmisi VBA keelest ja VBA redaktorist, mis on installitud Microsoft Office'i programmide iga versiooniga. Seda koodi saab kasutada kõigi Microsoft Office'i rakenduste jaoks.
Samm 1
Avage Microsoft Office'i rakenduses VBA redaktor, millesse soovite koodi sisestada. Klõpsake Microsoft Office 2003 või vanemas versioonis rakenduses "Fail" > "Tööriistad" > "Makrod" > "Visual Basic Editor". Klõpsake Microsoft Office'i 2007. aasta väljaandes vahekaarti "Arendaja" > "Visual Basic".
Päeva video
2. samm
Klõpsake koodiaknas suvalist kohta, kuhu soovite koodi sisestada.
3. samm
PDF-faili avamiseks lisage kood. Teie kood peaks välja nägema umbes selline:
Sub OpenPDF() Dim strPDFFileName stringina 'Redigeerige, et lisada avatavale PDF-failile täielik failinimi strPDFFileName = "C:\examplefile.pdf" 'See järgmine funktsioon kontrollib, kas fail pole juba avatud. Kui see pole faililukustatud (strPDFFileName) Siis 'Kui see tagastab väärtuse Väär, siis jätkake PDF-faili Dokumendid avamist. Ava strPDFFileName) End If End Sub
Kopeerige ja kleepige see kood oma koodiaknasse. Ainus osa koodist, mida peate muutma, on avatava PDF-faili täielik tee. Seega asenda "C:\examplefile.pdf" oma failitee ja nimega.
4. samm
PDF-faili printimiseks lisage kood. Trükikood on:
Sub PrintPDF (stringina strPDFFileName) Summuta sAdobeReader stringina 'See on täielik tee teie arvutis oleva Adobe Readeri või Acrobati rakenduse juurde sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) Lõpeta alam
Ainus osa sellest koodist, mida tuleb muuta, on täielik Adobe Readeri, Acrobati või mõne muu teie arvuti PDF-lugeja tee.
5. samm
Funktsioonide kutsumiseks kasutage päästikut. Nii saab kood teada, millal seda käivitada. Kasutage mis tahes päästikut, mida soovite; vorm, nupp, märkeruut või muu vormiüksus. Näiteks kasutage nupu deklaratsiooni "Klikk". Nupule klõpsamisel avaneb PDF-dokument ja seejärel prinditakse. Kood näeb välja selline:
Sub CommandButton_Click() 'Kutsuge esmalt avamise funktsioon, et PDF saaks enne printimist avaneda Kutsu OpenPDF'i kutsuge nüüd printimisfunktsioon, et PDF-i saaks printida Helista PrintPDF End Sub
Lihtsalt kopeerige ülaltoodud koodi keskmine osa (alam- ja lõpp-ala vahel) vormiüksusesse ja käivitage, mida otsustate kasutada.
Asjad, mida vajate
Microsoft Office'i rakendus
PDF-lugeja rakendus
Näpunäide
Kui kasutate 2007. aasta versiooni ja ei näe vahekaarti "Arendaja", klõpsake nuppu "Kontor" ja seejärel menüü allosas nuppu "Valikud". Klõpsake "Kuva lindil vahekaart Arendaja" ja klõpsake "OK".
