תִכנוּת
Visual Basic for Applications (VBA) היא שפת התכנות המשמשת את Microsoft Office כדי לגרום ליישומים לבצע משימות דינמיות, אחת מהן היא פתיחה והדפסה של קבצי PDF. כדי לבצע משימה זו, אתה צריך הבנה בסיסית של שפת VBA ועורך VBA המותקן עם כל גרסה של תוכניות Microsoft Office. ניתן להשתמש בקוד זה עבור כל אחד מיישומי Microsoft Office.
שלב 1
פתח את עורך VBA באפליקציית Microsoft Office שברצונך להזין את הקוד. לחץ על "קובץ" > "כלים" > "פקודות מאקרו" > "עורך Visual Basic" ביישום של Microsoft Office 2003 או גרסה מוקדמת יותר. לחץ על "כרטיסיית מפתחים" > "Visual Basic" במהדורת 2007 של Microsoft Office.
סרטון היום
שלב 2
לחץ במקום כלשהו בחלון הקוד שבו תרצה להכניס את הקוד.
שלב 3
הוסף את הקוד כדי לפתוח את קובץ ה-PDF. הקוד צריך להיראות בערך כך:
Sub OpenPDF() Dim strPDFFileName As String 'ערוך כדי להוסיף את שם הקובץ המלא לקובץ ה-PDF שברצונך לפתוח strPDFFileName = "C:\examplefile.pdf" 'זה הבא הפונקציה בודקת אם הקובץ לא פתוח כבר אם לא FileLocked (strPDFFileName) ואז 'אם הוא מחזיר False, אז המשך לפתוח את קובץ ה-PDF Documents. פתח את strPDFFileName) End If End Sub
העתק והדבק קוד זה בחלון הקוד שלך. החלק היחיד בקוד שתצטרך לשנות הוא הנתיב המלא לקובץ ה-PDF שברצונך לפתוח. אז, החלף את "C:\examplefile.pdf" בנתיב ובשם הקובץ שלך.
שלב 4
הוסף את הקוד כדי להדפיס את קובץ ה-PDF. קוד ההדפסה הוא:
Sub PrintPDF (strPDFFileName כמחרוזת) עמום sAdobeReader כמחרוזת 'זהו הנתיב המלא ליישום Adobe Reader או Acrobat במחשב שלך sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) סיום משנה
החלק היחיד בקוד זה שצריך לשנות הוא הנתיב המלא אל Adobe Reader, Acrobat או כל קורא PDF במחשב שלך.
שלב 5
השתמש בטריגר כדי לקרוא לפונקציות. כך הקוד יידע מתי לבצע. השתמש בכל טריגר שאתה רוצה; טופס, כפתור, תיבת סימון או פריט טופס אחר. לדוגמה, השתמש בהצהרת "קליק" של כפתור. לאחר לחיצה על הכפתור, מסמך ה-PDF ייפתח ולאחר מכן מודפס. הקוד נראה כך:
Sub CommandButton_Click() 'קרא תחילה לפונקציית הפתיחה כדי שה-PDF יוכל להיפתח לפני ההדפסה התקשר ל-OpenPDF 'כעת קרא לפונקציית ההדפסה כדי שניתן יהיה להדפיס את ה-PDF התקשר ל-PrintPDF End Sub
פשוט העתק את החלק האמצעי של הקוד לעיל (בין המשנה ל-End Sub) לפריט הטופס וההפעל שבו תחליט להשתמש.
דברים שתצטרכו
אפליקציה של Microsoft Office
אפליקציית קורא PDF
עֵצָה
אם אתה משתמש בגרסת 2007 ואינך רואה את הכרטיסייה "מפתח", לחץ על כפתור "Office" ולאחר מכן על כפתור "אפשרויות" בתחתית התפריט. לחץ על "הצג את לשונית מפתחים ברצועת הכלים" ולחץ על "אישור".
