Πώς να χρησιμοποιήσετε το VBD για να ανοίξετε και να εκτυπώσετε ένα αρχείο PDF

Συγγραφέας: Robert Simon
Ημερομηνία Δημιουργίας: 19 Ιούνιος 2021
Ημερομηνία Ενημέρωσης: 14 Ενδέχεται 2024
Anonim
Πώς Να Εισάγεται Ένα Φύλλο Εργασίας του Excel Σε Ένα Έγγραφο Του Microsoft Word;
Βίντεο: Πώς Να Εισάγεται Ένα Φύλλο Εργασίας του Excel Σε Ένα Έγγραφο Του Microsoft Word;

Περιεχόμενο

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


Οδηγίες

Προβολή προφίλ (Εικόνα ANSI από το DBX60 από την Fotolia.com)

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

  2. Στο παράθυρο κώδικα, κάντε κλικ όπου θέλετε να εισαγάγετε τον κωδικό.

  3. Προσθέστε τον κώδικα για να ανοίξετε ένα αρχείο PDF. Ο κώδικας σας πρέπει να μοιάζει με αυτόν

    Sub OpenPDF () Dim strPDFFileName As String 'Επεξεργασία προσθέτοντας το πλήρες όνομα αρχείου που θέλετε να ανοίξετε αντί του "strPDFFileName" = "C: examplefile.pdf "' Η ακόλουθη εντολή ελέγχει αν το αρχείο είναι ήδη ανοιχτό: Όχι FileLocked (strPDFFileName) και στη συνέχεια 'Αν το αποτέλεσμα είναι ψευδές, συνεχίστε να ανοίγετε το αρχείο Documents.Open strPDFFileName) End If End Sub


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

  4. Ο κώδικας για την εκτύπωση του αρχείου είναι

    SubPrintPDF (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)

    Πρέπει να αλλάξετε τη διαδρομή του προγράμματος ανάγνωσης PDF όπως στον υπολογιστή σας, ο φάκελος Program Files μπορεί να είναι στα Αγγλικά (Program Files) ή να έχει κάποια ένδειξη στο μπροστινό μέρος, όπως (x64).

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


    Sub CommandButton_Click () 'Ενεργοποίηση της ανοιχτής πριν από τη λειτουργία, ώστε να ανοίξει το PDF πριν από την εκτύπωση OpenPDF Call Στη συνέχεια, ενεργοποιήστε το PrintPDF Call End Sub

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

Πώς

  • Εάν χρησιμοποιείτε την έκδοση του 2007 του Microsoft Office και δεν βλέπετε την καρτέλα "Προγραμματιστής", κάντε κλικ στο κουμπί του Office, κάντε κλικ στην επιλογή "Επιλογές", κάντε κλικ στην επιλογή "Προσαρμογή" και επιλέξτε "Εμφάνιση καρτέλας Προγραμματιστής στην Κορδέλα" και κάντε κλικ στο κουμπί "ΟΚ".

Τι χρειάζεστε

  • Πρόγραμμα Microsoft Office
  • Πρόγραμμα ανάγνωσης PDF