Hogyan használhatunk VBA-t PDF-fájlok megnyitásához és nyomtatásához

A Visual Basic for Applications (VBA) a Microsoft Office programozási nyelve, amellyel az alkalmazások dinamikus feladatokat hajtanak végre, amelyek közül az egyik a PDF-fájlok megnyitása és kinyomtatása. A feladat elvégzéséhez alapszintű ismeretekkel kell rendelkeznie a VBA nyelvről és a Microsoft Office programok minden verziójával együtt telepített VBA-szerkesztőről. Ez a kód bármely Microsoft Office alkalmazáshoz használható.

1. lépés

Nyissa meg a VBA-szerkesztőt abban a Microsoft Office alkalmazásban, amelybe be szeretné írni a kódot. Kattintson a "Fájl"> "Eszközök"> "Makrók"> "Visual Basic Editor" elemre a Microsoft Office 2003 vagy korábbi verziójában. Kattintson a „Fejlesztő lap”> „Visual Basic” lehetőségre a Microsoft Office 2007-es kiadásában.

2. lépés

Kattintson bárhová a kód ablakban, ahová be szeretné szúrni a kódot.

3. lépés

Adja hozzá a kódot a PDF-fájl megnyitásához. A kódnak valahogy így kell kinéznie:

Sub OpenPDF() Dim strPDFFileName As String 'Szerkesztéssel adja hozzá a teljes fájlnevet a megnyitni kívánt PDF-fájlhoz strPDFFileName ="C:\examplefile.pdf" 'Ez a következő funkció ellenőrzi, hogy a fájl nincs-e még megnyitva. Nem FileLocked(strPDFFileName) Majd 'Ha False értéket ad vissza, akkor folytassa a PDF-fájl megnyitását Documents.Open strPDFFileName) End If End Sub

Másolja ki és illessze be ezt a kódot a kódablakba. A kód egyetlen része, amelyet módosítania kell, a megnyitni kívánt PDF-fájl teljes elérési útja. Tehát cserélje ki a "C:\examplefile.pdf" fájlt a saját fájl elérési útjával és nevével.

4. lépés

Adja hozzá a kódot a PDF-fájl nyomtatásához. A nyomtatási kód:

Sub PrintPDF (strPDFFileName karakterláncként) Dim sAdobeReader karakterláncként 'Ez az Adobe Reader vagy Acrobat alkalmazás teljes elérési útja a számítógépen sAdobeReader ="C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal =Shell (sAdobeReader &"/P" &Chr(34) &sStrPDFFileName &Chr(34), 0) End Sub

A kód egyetlen része, amelyet módosítani kell, az az Adobe Reader, Acrobat vagy bármely más PDF-olvasó elérési útja a számítógépen.

5. lépés

Használjon triggert a függvények meghívásához. A kód így tudja, mikor kell végrehajtani. Használjon bármilyen triggert, amit akar; űrlap, gomb, jelölőnégyzet vagy más űrlapelem. Például használja egy gomb "Kattintás" deklarációját. A gombra kattintva a PDF dokumentum megnyílik, majd kinyomtatható. A kód így néz ki:

Sub CommandButton_Click() 'Először hívja meg a megnyitás függvényt, hogy a PDF megnyíljon a nyomtatás előtt Hívja meg az OpenPDF 'Most hívja meg a nyomtatási funkciót, hogy kinyomtassa a PDF-t. Hívja a PrintPDF End Sub

Csak másolja be a fenti kód középső részét (a Sub és End Sub között) az űrlapelembe, és úgy dönt, hogy használja.

Tipp

Ha a 2007-es verziót használja, és nem látja a "Fejlesztő" lapot, kattintson az "Office" gombra, majd a menü alján az "Opciók" gombra. Kattintson a „Fejlesztő lap megjelenítése a szalagon” lehetőségre, majd kattintson az „OK” gombra.