Kako uporabljati VBA za odpiranje in tiskanje datoteke PDF

Visual Basic za aplikacije (VBA) je programski jezik, ki se uporablja z Microsoft Officeom, da aplikacije izvajajo dinamične naloge, ena od njih je odpiranje in tiskanje datotek PDF. Za izvedbo te naloge potrebujete osnovno razumevanje jezika VBA in urejevalnika VBA, ki je nameščen z vsako različico programov Microsoft Office. To kodo lahko uporabite za katero koli aplikacijo Microsoft Office.

1. korak

Odprite urejevalnik VBA v aplikaciji Microsoft Office, v katero želite vnesti kodo. Kliknite »Datoteka«> »Orodja«> »Makri«> »Urejevalnik Visual Basic« v aplikaciji Microsoft Office 2003 ali starejši. Kliknite »Razvijalec«> »Visual Basic« v izdaji Microsoft Officea 2007.

2. korak

Kliknite kjer koli v oknu kode, kamor želite vstaviti kodo.

3. korak

Dodajte kodo, da odprete datoteko PDF. Vaša koda bi morala izgledati nekako takole:

Sub OpenPDF() Dim strPDFFileName As String 'Uredi, da dodate celotno ime datoteke datoteki PDF, ki jo želite odpreti strPDFFileName ="C:\examplefile.pdf" 'Ta naslednja funkcija preveri, ali datoteka še ni odprta Če Not FileLocked(strPDFFileName) Nato 'Če vrne False, nato nadaljujte z odpiranjem datoteke PDF Documents.Open strPDFFileName) End If End Sub

Kopirajte in prilepite to kodo v svoje okno kode. Edini del kode, ki ga boste morali spremeniti, je celotna pot do datoteke PDF, ki jo želite odpreti. Torej, zamenjajte "C:\examplefile.pdf" z lastno potjo in imenom datoteke.

4. korak

Dodajte kodo za tiskanje datoteke PDF. Koda za tiskanje je:

Sub PrintPDF (strPDFFileName kot niz) Dim sAdobeReader kot String 'To je celotna pot do programa Adobe Reader ali Acrobat v vašem računalniku sAdobeReader ="C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal =Shell (sAdobeReader &"/P" &Chr(34) &sStrPDFFileName &Chr(34), 0) End Sub

Edini del te kode, ki ga je treba spremeniti, je celotna pot do programa Adobe Reader, Acrobat ali katerega koli bralnika PDF v vašem računalniku.

5. korak

Za klic funkcij uporabite sprožilec. Tako bo koda vedela, kdaj naj se izvede. Uporabite katerikoli sprožilec, ki ga želite; obrazec, gumb, potrditveno polje ali drug element obrazca. Uporabite na primer deklaracijo gumba »Klikni«. Ko kliknete gumb, se dokument PDF odpre in nato natisne. Koda je videti takole:

Sub CommandButton_Click() 'Najprej pokliči funkcijo odpiranja, da se PDF lahko odpre pred tiskanjem. Pokliči OpenPDF 'Zdaj pokliči funkcijo tiskanja, da bo PDF mogoče natisniti. Pokliči PrintPDF End Sub

Preprosto kopirajte srednji del zgornje kode (med Sub in End Sub) v postavko obrazca in sprožilec, za katerega se odločite.

Nasvet

Če uporabljate različico 2007 in ne vidite zavihka »Razvijalec«, kliknite gumb »Office« in nato gumb »Možnosti« na dnu menija. Kliknite »Pokaži zavihek razvijalca na traku« in kliknite »V redu«.