Πώς να χρησιμοποιήσετε το VBA να ανοίξει & Εκτύπωση PDF αρχείου

Visual Basic for Applications ( VBA) είναι η γλώσσα προγραμματισμού που χρησιμοποιείται με το Microsoft Office για να κάνουν τις εφαρμογές εκτελέσει δυναμικές αποστολές , μία εκ των οποίων είναι το άνοιγμα και την εκτύπωση αρχείων PDF . Για να εκτελέσετε αυτή την εργασία , θα πρέπει να έχετε μια βασική κατανόηση της γλώσσας VBA και ο συντάκτης VBA που έρχεται εγκατεστημένο με κάθε έκδοση των προγραμμάτων του Microsoft Office . Αυτός ο κώδικας μπορεί να χρησιμοποιηθεί για οποιαδήποτε από τις εφαρμογές του Microsoft Office . Τα πράγματα που θα χρειαστείτε
μια εφαρμογή
PDF εφαρμογή ανάγνωσης του Microsoft Office

Παρουσίαση Περισσότερες οδηγίες
Η

1 Ανοίξτε το πρόγραμμα επεξεργασίας VBA στην εφαρμογή του Microsoft Office που θέλετε κωδικός που πρέπει να αναληφθεί. Κάντε κλικ στο "Αρχείο" > " Εργαλεία " > " Μακροεντολές " > " Επεξεργασία Visual Basic " σε μια εφαρμογή του Microsoft Office 2003 ή νωρίτερα . Κάντε κλικ στην καρτέλα " Προγραμματιστής " > " Visual Basic" στην έκδοση του Microsoft Office 2007 . 2

Κάντε κλικ οπουδήποτε στο παράθυρο κώδικα όπου θέλετε να εισάγετε τον κωδικό .
Η Φτηνές 3

Προσθέστε τον κώδικα για να ανοίξετε το αρχείο PDF . Κωδικός θα πρέπει να δούμε κάτι σαν αυτό :

Sub OpenPDF ( ) Dim strPDFFileName Όπως String'Edit για να προσθέσετε το πλήρες όνομα αρχείου για το αρχείο PDF που θέλετε να openstrPDFFileName = " C : \\ examplefile.pdf " " Αυτό το επόμενο η λειτουργία ελέγχει να δει αν το αρχείο δεν είναι ήδη openIf δεν FileLocked ( strPDFFileName ) Then'If επιστρέφει False , στη συνέχεια, να συνεχίσει το άνοιγμα του PDF fileDocuments.Open strPDFFileName ) End Sub IfEnd

αντιγραφή και επικόλληση του κώδικα σε σας παράθυρο κώδικα . Το μόνο μέρος του κώδικα που θα πρέπει να αλλάξει είναι η πλήρης διαδρομή προς το αρχείο PDF που θέλετε να ανοίξετε . Έτσι , αντικαταστήστε το "C: \\ examplefile.pdf " με τη δική σας διαδρομή και το όνομα αρχείου
Η 4

Προσθέστε τον κώδικα για να εκτυπώσετε το αρχείο PDF . . Ο κωδικός της εκτύπωσης είναι :

Sub PrintPDF ( strPDFFileName ως string) Dim sAdobeReader ως String'This είναι η πλήρης διαδρομή προς την εφαρμογή Adobe Reader ή Acrobat για computersAdobeReader σας = " 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

Χρησιμοποιήστε ένα έναυσμα για να καλέσετε τις λειτουργίες . Αυτό είναι το πώς ο κώδικας θα ξέρουν πότε να εκτελέσει . Χρησιμοποιήστε ό, τι σκανδάλη θέλετε? Μια μορφή , το κουμπί , ελέγχου ή κάποιο άλλο στοιχείο φόρμας . Για παράδειγμα , χρησιμοποιήστε το "Click" δήλωση ενός κουμπιού . Όταν κάνετε κλικ στο κουμπί , το έγγραφο PDF θα ανοίξει και στη συνέχεια να εκτυπώσετε . Ο κώδικας μοιάζει με αυτό :

Sub CommandButton_Click ( ) « Καλέστε την ανοικτή λειτουργία πρώτα έτσι ώστε το PDF μπορούν να ανοίξουν πριν printingCall OpenPDF'Now καλέσετε τη λειτουργία εκτύπωσης , έτσι ώστε το PDF μπορεί να printedCall PrintPDFEnd Sub

Απλά αντιγράψτε το μεσαίο τμήμα του παραπάνω κώδικα ( μεταξύ Sub και End Sub ) στο στοιχείο της φόρμας και να προκαλέσει αποφασίσετε να χρησιμοποιήσετε .
Η
εικόνων