Programozás
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 végrehajtásához 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.
A nap videója
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ő függvény ellenőrzi, hogy a fájl nincs-e még megnyitva. Ha nincs fájlzárolva (strPDFFileName) Majd 'Ha False értéket ad vissza, akkor folytassa a PDF fájl megnyitását Documents. Nyissa meg az 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ára és nevére.
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) Vége Sub
Ennek a kódnak csak az a része, amelyet módosítani kell, 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 kiváltót, amit akar; űrlap, gomb, jelölőnégyzet vagy egyéb ű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ílhasson a nyomtatás előtt Hívja meg az OpenPDF 'Most hívja meg a nyomtatási funkciót, hogy ki lehessen nyomtatni a PDF-et. Hívja a PrintPDF végét 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.
Dolgok, amelyekre szüksége lesz
Microsoft Office alkalmazás
PDF olvasó alkalmazás
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" elemre, majd kattintson az "OK" gombra.
