Kako koristiti VBA za otvaranje i ispis PDF datoteke

Visual Basic za aplikacije (VBA) je programski jezik koji se koristi s Microsoft Officeom kako bi aplikacije izvršavale dinamičke zadatke, od kojih je jedan otvaranje i ispis PDF datoteka. Za obavljanje ovog zadatka potrebno vam je osnovno razumijevanje VBA jezika i VBA uređivača koji dolazi instaliran uz svaku verziju programa Microsoft Office. Ovaj kod se može koristiti za bilo koju Microsoft Office aplikaciju.

1. korak

Otvorite VBA editor u Microsoft Office aplikaciji u koju želite da se unese kod. Kliknite na "Datoteka"> "Alati"> "Makronaredbe"> "Visual Basic Editor" u aplikaciji Microsoft Office 2003 ili starije. Kliknite na "Kartica za programere"> "Visual Basic" u izdanju Microsoft Officea 2007.

2. korak

Kliknite bilo gdje u prozoru koda gdje želite umetnuti kod.

3. korak

Dodajte kod za otvaranje PDF datoteke. Vaš kod bi trebao izgledati otprilike ovako:

Sub OpenPDF() Dim strPDFFileName As String 'Edit za dodavanje punog naziva datoteke PDF datoteci koju želite otvoriti strPDFFileName ="C:\examplefile.pdf" 'Ova sljedeća funkcija provjerava je li datoteka već otvorena Ako Not FileLocked(strPDFFileName) Then 'Ako vrati False, onda nastavi otvarati PDF datoteku Documents.Open strPDFFileName) End If End Sub

Kopirajte i zalijepite ovaj kod u svoj prozor koda. Jedini dio koda koji ćete morati promijeniti je puna staza do PDF datoteke koju želite otvoriti. Dakle, zamijenite "C:\examplefile.pdf" svojim vlastitim putem i nazivom datoteke.

4. korak

Dodajte kod za ispis PDF datoteke. Kod za ispis je:

Sub PrintPDF (strPDFFileName kao string) Dim sAdobeReader as String 'Ovo je puni put do aplikacije Adobe Reader ili Acrobat na vašem računalu sAdobeReader ="C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal =Shell (sAdobeReader &"/P" &Chr(34) &sStrPDFFileName &Chr(34), 0) End Sub

Jedini dio ovog koda koji treba promijeniti je puna staza do Adobe Readera, Acrobata ili bilo kojeg PDF čitača na vašem računalu.

Korak 5

Koristite okidač za pozivanje funkcija. Ovako će kôd znati kada treba izvršiti. Koristite bilo koji okidač koji želite; obrazac, gumb, potvrdni okvir ili drugu stavku obrasca. Na primjer, upotrijebite deklaraciju gumba "Klikni". Kada se klikne na gumb, PDF dokument će se otvoriti i potom ispisati. Kod izgleda ovako:

Sub CommandButton_Click() 'Prvo pozovite funkciju otvaranja kako bi se PDF mogao otvoriti prije ispisa Pozovite OpenPDF 'Sada pozovite funkciju ispisa kako bi se PDF mogao ispisati Pozovite PrintPDF End Sub

Samo kopirajte srednji dio gornjeg koda (između Sub i End Sub) u stavku obrasca i okidač koji odlučite koristiti.

Savjet

Ako koristite verziju 2007. i ne vidite karticu "Developer", kliknite gumb "Office", a zatim gumb "Options" na dnu izbornika. Kliknite na "Prikaži karticu Razvojni programer na vrpci" i kliknite na "U redu."