Πώς να Εκτύπωση PDF Χρησιμοποιώντας VBA

Visual Basic Applications ( VBA ) που σχεδιάστηκε από τη Microsoft χρησιμοποιούν Visual6 γλώσσα προγραμματισμού . Ήταν δημιουργήθηκε για τους προγραμματιστές που επιτρέπει τις λειτουργίες ορίζονται από το χρήστη και η αυτοματοποίηση των διαδικασιών . Μπορεί να χρησιμοποιηθεί για να δημιουργήσει ένα έγγραφο του Word από το Excel και το αντίστροφο , όπως είναι ενσωματωμένη στις εφαρμογές του Microsoft Office . Μπορείτε να χρησιμοποιήσετε VBA για να εκτυπώσετε αρχεία PDF , αν καταλαβαίνετε τη γλώσσα VBA και εκδότης . Οδηγίες
Η

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

Εισάγετε τον κωδικό στο παράθυρο κώδικα " Visual Basic ". :

Sub OpenPDF ( )

Dim strPDFFileName Όπως String

strPDFFileName = " C : \\ examplefile.pdf "

( « Αυτή η επόμενη λειτουργία ελέγχει για να δει εάν το αρχείο δεν είναι ήδη ανοιχτό )

Αν όχι FileLocked ( strPDFFileName ) Στη συνέχεια

( Αν επιστρέφει False , στη συνέχεια, να συνεχίσει να ανοίξετε το αρχείο PDF )

Documents.Open strPDFFileName )

End If

End Sub

Edit " strPDFFileName " προσθέστε το πλήρες όνομα αρχείου για το αρχείο PDF που θέλετε να ανοίξετε . Αντικαταστήστε το " C : \\ examplefile.pdf " με την πραγματική διαδρομή θέσης του εγγράφου PDF σας
εικόνων 3

Πληκτρολογήστε αυτόν τον κωδικό για να προετοιμαστούν για να εκτυπώσετε PDF σας : .

Sub PrintPDF ( strPDFFileName ως string)

Δημ. sAdobeReader ως String

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 "για την πραγματική διαδρομή της έκδοσης
Η 4

Εισάγετε τον κωδικό αυτό για να προκαλέσει το PDF για εκτύπωση:

Sub CommandButton_Click ( )

Call OpenPDF

Καλέστε PrintPDF

Sub End
Η
εικόνων