Programavimas
„Visual Basic for Applications“ (VBA) yra programavimo kalba, naudojama su „Microsoft Office“, kad programos atliktų dinamines užduotis, iš kurių viena yra PDF failų atidarymas ir spausdinimas. Norėdami atlikti šią užduotį, turite išmanyti VBA kalbą ir VBA rengyklę, kuri yra įdiegta kartu su kiekviena Microsoft Office programų versija. Šis kodas gali būti naudojamas bet kuriai „Microsoft Office“ programai.
1 žingsnis
Atidarykite VBA rengyklę Microsoft Office programoje, į kurią norite įvesti kodą. „Microsoft Office 2003“ ar senesnės versijos programoje spustelėkite „Failas“ > „Įrankiai“ > „Makrokomandos“ > „Visual Basic Editor“. 2007 m. „Microsoft Office“ leidime spustelėkite skirtuką „Kūrėjas“ > „Visual Basic“.
Dienos vaizdo įrašas
2 žingsnis
Spustelėkite bet kurią kodo lango vietą, kurioje norite įterpti kodą.
3 veiksmas
Pridėkite kodą, kad atidarytumėte PDF failą. Jūsų kodas turėtų atrodyti maždaug taip:
Sub OpenPDF() Dim strPDFFileName As String 'Redaguokite, kad pridėtumėte visą failo pavadinimą prie PDF failo, kurį norite atidaryti strPDFFileName = "C:\examplefile.pdf" 'Šis kitas Funkcija patikrina, ar failas dar neatidarytas. Jei neužrakintas (strPDFFileName) Tada „Jei jis grąžina False“, toliau atidarykite PDF failą Dokumentai. Atidarykite strPDFFileName) End If End Sub
Nukopijuokite ir įklijuokite šį kodą į savo kodo langą. Vienintelė kodo dalis, kurią turėsite pakeisti, yra visas kelias į PDF failą, kurį norite atidaryti. Taigi, pakeiskite „C:\examplefile.pdf“ savo failo keliu ir pavadinimu.
4 veiksmas
Pridėkite kodą, kad atspausdintumėte PDF failą. Spausdinimo kodas yra:
Sub PrintPDF (strPDFFileName kaip eilutė) Pritemdyti sAdobeReader kaip eilutę „Tai visas kelias į Adobe Reader arba Acrobat programą jūsų kompiuteryje sAdobeReader = "C:\Programų failai\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) Pabaigos sub
Vienintelė šio kodo dalis, kurią reikia pakeisti, yra visas kelias į Adobe Reader, Acrobat ar bet kurį PDF skaitytuvą jūsų kompiuteryje.
5 veiksmas
Norėdami iškviesti funkcijas, naudokite trigerį. Taip kodas žinos, kada jį vykdyti. Naudokite bet kokį paleidiklį; formą, mygtuką, žymimąjį laukelį ar kitą formos elementą. Pavyzdžiui, naudokite mygtuko deklaraciją „Spustelėti“. Spustelėjus mygtuką, PDF dokumentas bus atidarytas ir atspausdintas. Kodas atrodo taip:
Sub CommandButton_Click() 'Pirmiausia iškvieskite atidarymo funkciją, kad PDF galėtų atsidaryti prieš spausdinant Skambinti OpenPDF 'Dabar iškvieskite spausdinimo funkciją, kad būtų galima spausdinti PDF Skambinti PrintPDF Pabaiga Sub
Tiesiog nukopijuokite vidurinę anksčiau pateikto kodo dalį (tarp sub ir pabaigos) į formos elementą ir paleiskite, kurį nuspręsite naudoti.
Daiktai, kurių jums prireiks
„Microsoft Office“ programa
PDF skaitymo programa
Patarimas
Jei naudojate 2007 m. versiją ir nematote skirtuko „Kūrėjas“, spustelėkite mygtuką „Office“, tada meniu apačioje esantį mygtuką „Parinktys“. Spustelėkite „Rodyti kūrėjo skirtuką juostelėje“ ir spustelėkite „Gerai“.
