![...](/f/85aa7362ed3c842a2bd4f7f5b5a6a99c.jpg)
Programiranje
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. Da biste izvršili ovaj zadatak, potrebno vam je osnovno razumijevanje VBA jezika i VBA uređivača koji dolazi instaliran uz svaku verziju programa Microsoft Office. Ovaj se kod može koristiti za bilo koju od aplikacija Microsoft Officea.
Korak 1
Otvorite VBA editor u aplikaciji Microsoft Office u koju želite da se unese kod. Kliknite na "Datoteka" > "Alati" > "Makronaredbe" > "Visual Basic Editor" u aplikaciji Microsoft Office 2003 ili ranije. Kliknite na "kartica Developer" > "Visual Basic" u izdanju Microsoft Officea iz 2007.
Video dana
Korak 2
Kliknite bilo gdje u prozoru koda gdje želite umetnuti kod.
Korak 3
Dodajte kod za otvaranje PDF datoteke. Vaš kod bi trebao izgledati otprilike ovako:
Sub OpenPDF() Dim strPDFFileName As String 'Uredite da dodate puni naziv datoteke PDF datoteci koju želite otvoriti strPDFFileName = "C:\examplefile.pdf" 'Ovo sljedeće funkcija provjerava da li datoteka već nije otvorena. Ako nije datoteka zaključana (strPDFFileName) Zatim 'Ako vrati False, nastavite otvarati PDF datoteku Dokumenti. Otvorite strPDFFileName) End If End Sub
Kopirajte i zalijepite ovaj kod u prozor koda. Jedini dio koda koji ćete morati promijeniti je puni put do PDF datoteke koju želite otvoriti. Dakle, zamijenite "C:\examplefile.pdf" vlastitim putem i imenom datoteke.
4. korak
Dodajte kod za ispis PDF datoteke. Kod za ispis je:
Sub PrintPDF (strPDFFileName kao string) Dim sAdobeReader kao string 'Ovo je potpuni 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) Kraj Sub
Jedini dio ovog koda koji treba promijeniti je puni put do Adobe Readera, Acrobat ili bilo kojeg PDF čitača na vašem računalu.
Korak 5
Koristite okidač za pozivanje funkcija. Ovako će kod znati kada se izvršiti. Koristite koji god okidač želite; obrazac, gumb, potvrdni okvir ili druga stavka obrasca. Na primjer, upotrijebite deklaraciju gumba "Klik". Kada se klikne na gumb, PDF dokument će se otvoriti i zatim ispisati. Kod izgleda ovako:
Sub CommandButton_Click() 'Prvo pozovite funkciju za otvaranje 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.
Stvari koje će vam trebati
Microsoft Office aplikacija
Aplikacija za čitanje PDF-a
Savjet
Ako koristite verziju iz 2007. i ne vidite karticu "Developer", kliknite gumb "Office", a zatim gumb "Opcije" na dnu izbornika. Kliknite na "Prikaži karticu Developer na vrpci" i kliknite "U redu".