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

; Visual Basic for Applications ή VBA , είναι η γλώσσα προγραμματισμού Microsoft που συμπεριλαμβάνονται με όλα τα προγράμματα του Office της . Είναι προέρχεται από την κλασική Basic γλώσσα προγραμματισμού και χρησιμοποιείται για τη δημιουργία δυναμικών έγγραφα του Microsoft Office . Μπορείτε να επικοινωνήσετε με άλλα προγράμματα , συμπεριλαμβανομένου του Adobe Acrobat Reader ή , για να ανοίξετε και στη συνέχεια να εκτυπώσετε έγγραφα δεξιά μέσα από μια εφαρμογή του Office . Αυτή τη στιγμή , το Adobe Acrobat Reader και είναι τα μόνα προγράμματα ανάγνωσης αρχείων PDF που επικοινωνούν εύκολα μέσα από το Visual Basic for Applications . Οδηγίες
Η

1 Ανοίξτε το έγγραφο που θέλετε να προσθέσετε αυτή τη λειτουργία για να σε μία από τις εφαρμογές του Microsoft Office . 2

Εμφάνιση της καρτέλας "Προγραμματιστής " στην αίτηση, εκτός από την Access, εάν δεν είναι ήδη δείχνει . Κάντε κλικ στην καρτέλα "Αρχείο" και στη συνέχεια " Επιλογές". Κάντε κλικ στο " Προσαρμογή κορδέλες . " Σύμφωνα με το " Main Tabs ", κάντε κλικ στο κουτάκι δίπλα στο " Developer ". Κάντε κλικ στο "OK".
Εικόνων 3

Ανοίξτε το Visual Basic Editor. Στην Access , κάντε κλικ στην καρτέλα " Εργαλεία βάσης δεδομένων " και στη συνέχεια " Visual Basic ". Σε άλλα προγράμματα , κάντε κλικ στην καρτέλα "Προγραμματιστής " και στη συνέχεια " Visual Basic ".
Η

4 Κάντε κλικ στο "Εισαγωγή " και στη συνέχεια " ενότητα ". Πληκτρολογήστε τον κωδικό για να ανοίξει και στη συνέχεια να εκτυπώσετε έγγραφα PDF . Ο κώδικας μοιάζει με αυτό :

" Sub PrintPDF ( )

Δημ. FilePath ως κορδόνι

Dim appPDF ως κορδόνι

« Το αρχείο PDF που θέλετε να ανοίξετε

strFilePath = " C : \\ Documents \\ sample.pdf "

« Ελέγξτε για να δείτε αν το αρχείο είναι ήδη ανοιχτή

If Not FileLocked ( strFilePath ), τότε

Documents.Open strFilePath

End If

« τώρα που το αρχείο είναι ανοιχτό , μπορείτε να το εκτυπώσετε

» που πρώτη η μεταβλητή για το πρόγραμμα Adobe στον υπολογιστή σας υπολογιστή

appPDF = " C : \\ Program Files \\ Adobe \\ Acrobat 6.0 \\ Reader \\ AcroRd32.exe "

« τώρα εκτυπώσετε το αρχείο

RETVAL = Shell ( appPDF & ? " /P " & Chr ( 34 ) & strFilePath & Chr ( 34 ) , 0 )

End Sub "
5

Κάντε κλικ στο κουμπί" Αποθήκευση " στην Visual Basic για να σώσει τη μονάδα .
Η
εικόνων