Προγραμματισμός
Η 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" 'Αυτό το επόμενο Η λειτουργία ελέγχει για να δει αν το αρχείο δεν είναι ήδη ανοιχτό Αν δεν έχει κλειδώσει το αρχείο (strPDFFileName) Στη συνέχεια, «Εάν επιστρέψει False, τότε συνεχίστε να ανοίγετε το αρχείο PDF Documents. Ανοίξτε το strPDFFileName) End If End Sub
Αντιγράψτε και επικολλήστε αυτόν τον κωδικό στο παράθυρο του κωδικού σας. Το μόνο μέρος του κώδικα που θα χρειαστεί να αλλάξετε είναι η πλήρης διαδρομή προς το αρχείο PDF που θέλετε να ανοίξετε. Επομένως, αντικαταστήστε το "C:\examplefile.pdf" με τη δική σας διαδρομή και όνομα αρχείου.
Βήμα 4
Προσθέστε τον κώδικα για να εκτυπώσετε το αρχείο PDF. Ο κωδικός εκτύπωσης είναι:
Sub PrintPDF (strPDFFileName ως συμβολοσειρά) Dim sAdobeReader ως String «Αυτή είναι η πλήρης διαδρομή προς την εφαρμογή Adobe Reader ή Acrobat στον υπολογιστή σας sAdobeReader = "C:\Program Files\Adobe\Acrobat 6.0\Reader\AcroRd32.exe" RetVal = Shell (sAdobeReader & "/P" & Chr (34) & sStrPDFFileName & Chr (34), 0) End Sub
Το μόνο μέρος αυτού του κώδικα που πρέπει να αλλάξει είναι η πλήρης διαδρομή προς το Adobe Reader, το Acrobat ή οποιοδήποτε πρόγραμμα ανάγνωσης PDF στον υπολογιστή σας.
Βήμα 5
Χρησιμοποιήστε μια σκανδάλη για να καλέσετε τις συναρτήσεις. Αυτός είναι ο τρόπος με τον οποίο ο κώδικας θα γνωρίζει πότε πρέπει να εκτελεστεί. Χρησιμοποιήστε όποια σκανδάλη θέλετε. μια φόρμα, κουμπί, πλαίσιο ελέγχου ή άλλο στοιχείο φόρμας. Για παράδειγμα, χρησιμοποιήστε τη δήλωση "Κλικ" ενός κουμπιού. Όταν κάνετε κλικ στο κουμπί, το έγγραφο PDF θα ανοίξει και στη συνέχεια θα εκτυπωθεί. Ο κώδικας μοιάζει με αυτό:
Sub CommandButton_Click() 'Καλέστε πρώτα την ανοιχτή συνάρτηση ώστε το PDF να μπορεί να ανοίξει πριν από την εκτύπωση Call OpenPDF 'Τώρα καλέστε τη συνάρτηση εκτύπωσης ώστε να μπορεί να εκτυπωθεί το PDF Κλήση PrintPDF End Sub
Απλώς αντιγράψτε το μεσαίο τμήμα του παραπάνω κώδικα (μεταξύ του Sub και του End Sub) στο στοιχείο φόρμας και ενεργοποιήστε την ενεργοποίηση που αποφασίσατε να χρησιμοποιήσετε.
Πράγματα που θα χρειαστείτε
Μια εφαρμογή του Microsoft Office
Εφαρμογή ανάγνωσης PDF
Υπόδειξη
Εάν χρησιμοποιείτε την έκδοση 2007 και δεν βλέπετε την καρτέλα "Προγραμματιστής", κάντε κλικ στο κουμπί "Γραφείο" και μετά στο κουμπί "Επιλογές" στο κάτω μέρος του μενού. Κάντε κλικ στην επιλογή "Εμφάνιση καρτέλας προγραμματιστή στην κορδέλα" και κάντε κλικ στο "OK".
