Για να αποθηκεύσετε ένα επιλεγμένο εύρος στο excel (πείτε μια απόδειξη) ως PDF στο Excel χρησιμοποιώντας VBA χρησιμοποιήστε την παρακάτω σύνταξη.
Ο Γενικός Κώδικας
Sub SaveRangeAsPDF () Εύρος.ExportAsFixedFormat Τύπος: = xlTypePDF, Ονομα αρχείου:= _ "C: \ Users \ file_name", Quality: = xlQualityStandard, _ IncludeDocProperties: = True, IgnorePrintAreas: = False, OpenAfterPublish: = True End Sub
Ο παραπάνω κώδικας είναι ένας γενικός κώδικας για την αποθήκευση ενός σταθερού εύρους ως εγγράφου PDF. Όταν η μακροεντολή εγγραφής σας κατά την εξαγωγή του excel σε PDF, θα εμφανιστεί ένας παρόμοιος κώδικας.
Εύρος:Μπορεί να είναι ένα σταθερό εύρος, ένα δυναμικό εύρος ή μια επιλογή. Πρέπει να το ορίσετε.
Ονομα αρχείου: Αυτό είναι το πλήρως αναγνωρισμένο όνομα του pdf. Ορίστε το ως συμβολοσειρά.
Οι υπόλοιπες μεταβλητές μπορούν να αφεθούν ως έχουν. Τα εξήγησα μετά από παράδειγμα.
Παράδειγμα: Εκτύπωση απόδειξης Excel ως PDF χρησιμοποιώντας VBA
Ας υποθέσουμε ότι πρέπει να εκτυπώνετε και να στέλνετε αποδείξεις στο Excel σε τακτική βάση. Σε αυτή την περίπτωση, θα θέλατε να το έχετε αυτοματοποιημένο. Δεν θα θέλατε να κάνετε την εξαγωγή excel σε pdf ξανά και ξανά. Εάν μπορείτε απλά να χρησιμοποιήσετε ένα κουμπί για να το κάνετε αυτό θα ήταν χρήσιμο, έτσι δεν είναι;
Εδώ, έχω σχεδιάσει αυτήν τη μορφή απόδειξης. Θέλω να το εκτυπώσω/αποθηκεύσω/εξάγω ως pdf χρησιμοποιώντας το κουμπί "Δημιουργία PDF".
Αυτή η απόδειξη καλύπτει το εύρος "A2: L21". Έχω ήδη ρυθμίσει την περιοχή εκτύπωσης.
Για εξοικονόμηση αυτού του εύρους Excel ως PDF, θα χρησιμοποιήσουμε τον παραπάνω γενικό κώδικα VBA για εξαγωγή φύλλου excel σε pdf. Θα προσαρμόσουμε τον κωδικό σύμφωνα με τις απαιτήσεις μας.
Sub PrintSelectionToPDF () Dim invoiceRng As Range Dim pdfile As String 'Εύρος ρύθμισης προς εκτύπωση Ορισμός τιμολογίουRng = Εύρος ("A1: L21") με όνομα χρόνου με σφραγίδα χρόνου. pdfile = "τιμολόγιο" & "_" & Μορφή (Τώρα (), "yyyymmdd_hhmmss") & ".pdf" 'ορίζοντας το πλήρες κατάλληλο όνομα. Το pdf που προκύπτει θα αποθηκευτεί εκεί που υπάρχει το κύριο αρχείο. pdfile = ThisWorkbook.Path & strfile invoiceRng.ExportAsFixedFormat Type: = xlTypePDF, _ Filename: = pdfile, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False Subse, _
Χρησιμοποιώντας τον Κώδικα:
Αντιγράψτε τον παραπάνω κώδικα στο αρχείο παραλαβής ανοίγοντας τον επεξεργαστή VBA (χρησιμοποιήστε Alt+F11). Προσαρμόστε το εύρος και τη διαδρομή αρχείου (αν θέλετε) στον κώδικα που θέλετε να εκτυπώσετε. Μπορείτε να κατεβάσετε το αρχείο εργασίας παρακάτω.
Αποθηκεύστε το εύρος του Excel ως PDF χρησιμοποιώντας VBA
Εξήγηση:
Dim invoiceRng As Range Dim pdfile As String
Ο κώδικας είναι απλός. Πρώτον, έχουμε δημιουργήσει δύο μεταβλητές. "InvoiceRng as Range" για το εύρος/φύλλο που θέλουμε να αποθηκεύσουμε ως pdf. strFile για το πλήρως αναγνωρισμένο όνομα αρχείου του PDF που προκύπτει.
Ορισμός τιμολογίουRng = Εύρος ("A1: L21")
Δεδομένου ότι το εύρος εκτύπωσης είναι σταθερό, ορίζουμε το εύρος τιμολογίων ως Εύρος ("A1: L21").
pdfile = "τιμολόγιο" & "_" & Μορφή (Τώρα (), "yyyymmdd_hhmmss") & ".pdf" pdfile = ThisWorkbook.Path & strfile
Στις δύο παραπάνω γραμμές, πρώτα ονομάζουμε το αρχείο με χρονική σήμανση και στη συνέχεια προσθέτουμε στη διαδρομή του κύριου αρχείου. Ως αποτέλεσμα, το pdfile περιέχει το πλήρως αναγνωρισμένο όνομα του αρχείου pdf που προκύπτει.
invoiceRng.ExportAsFixedFormat _ Τύπος: = xlTypePDF, _ Όνομα αρχείου: = pdfile, _ Ποιότητα: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = True, _ OpenAfterPublish: = False
Τέλος, χρησιμοποιούμε τη μέθοδο ExpoortAsFixedFormat της κλάσης Range για να εκτυπώσουμε το καθορισμένο εύρος Excel ως PDF. Ορίζουμε τον τύπο ως xlTypePDF. Μια άλλη επιλογή είναι το xlTypeXPS, το οποίο θα αποθηκεύσει το επιλεγμένο εύρος ως αρχείο XPS.
Ορίσαμε το όνομα αρχείου ως αρχείο pdfile, το οποίο περιέχει τη συμβολοσειρά του πλήρως αναγνωρισμένου ονόματος του αρχείου pdf. Μπορείτε να γράψετε ένα κείμενο με σκληρό κωδικό εδώ ή να το προσαρμόσετε ανάλογα με τις ανάγκες σας.
Στη συνέχεια, ορίζουμε την ποιότητα του pdfile ως xlQualityStandard. Έχουμε άλλη επιλογή ως xlQualityMinimum.
Στη συνέχεια, ορίζουμε το IncludeDocProperties ως True. Αυτό σημαίνει ότι το προκύπτον PDF θα έχει τις ιδιότητες ενός εγγράφου.
Στη συνέχεια, ορίζουμε το IgnorePrintAreas ως True. Αυτό σημαίνει ότι θα αγνοήσει οποιαδήποτε περιοχή εκτύπωσης που έχει ήδη οριστεί.
Τέλος, ορίσαμε το OpenAfterPublish ως False. Αυτό σημαίνει ότι το αρχείο που δημιουργείτε δεν θα ανοίξει αυτόματα. Το έθεσα false επειδή δημιουργώ 100s αρχείων χρησιμοποιώντας ένα βρόχο και δεν θέλω να ανοίξουν. Εάν θέλετε να ανοίξετε το αρχείο μετά τη δημιουργία χρησιμοποιώντας το Excel, ορίστε το True.
Χρήση εκτύπωσης επιλεγμένου εύρους ως pdf
Μια βασική χρήση είναι η εκτύπωση της επιλεγμένης περιοχής κάνοντας απλώς κλικ σε ένα κουμπί. Αλλά η καλύτερη χρήση είναι να το χρησιμοποιήσετε σε έναν βρόχο όπου πρέπει να δημιουργήσετε πολλαπλές αποδείξεις για διαφορετικούς πελάτες. Δημιουργήστε ένα δευτερεύον για τη συμπλήρωση δεδομένων και, στη συνέχεια, χρησιμοποιήστε αυτόν τον κωδικό για να εκτυπώσετε το επιλεγμένο εύρος σε έναν βρόχο.
Λοιπόν, ναι, έτσι μπορείτε να αποθηκεύσετε το επιλεγμένο εύρος ως pdf. Ελπίζω να ήταν χρήσιμο για εσάς. Εάν εξακολουθείτε να έχετε οποιαδήποτε αμφιβολία ή ερώτημα σχετικά με την εκτύπωση σε excel χρησιμοποιώντας VBA, ρωτήστε την παρακάτω ενότητα σχολίων.
Εκτυπώστε πολλές επιλογές σε ένα φύλλο χρησιμοποιώντας VBA στο Microsoft Excel | Επιλέξτε πολλά εύρη και εκτυπώστε κάθε εύρος σε διαφορετικό φύλλο χρησιμοποιώντας VBA.
Εκτυπώστε όλα τα βιβλία εργασίας σε ένα φάκελο χρησιμοποιώντας VBA στο Microsoft Excel | Χρησιμοποιήστε αυτόν τον κώδικα VBA για να εκτυπώσετε και να αποθηκεύσετε κάθε βιβλίο εργασίας excel σε ένα φάκελο χρησιμοποιώντας.
Δημοφιλή άρθρα:
Διαχωρίστε το φύλλο Excel σε πολλά αρχεία με βάση τη στήλη χρησιμοποιώντας VBA | Αυτός ο κώδικας VBA διαχωρίζει τη βάση φύλλου excel σε μοναδικές τιμές σε μια καθορισμένη στήλη. Κατεβάστε το αρχείο εργασίας.
Απενεργοποιήστε τα μηνύματα προειδοποίησης χρησιμοποιώντας το VBA στο Microsoft Excel 2016 | Για να απενεργοποιήσουμε τα προειδοποιητικά μηνύματα που διακόπτουν τον τρέχοντα κώδικα VBA, χρησιμοποιούμε την κλάση Εφαρμογή.
Προσθήκη και αποθήκευση νέου βιβλίου εργασίας χρησιμοποιώντας το VBA στο Microsoft Excel 2016 | Για να προσθέσετε και να αποθηκεύσετε βιβλία εργασίας χρησιμοποιώντας VBA, χρησιμοποιούμε την τάξη βιβλίων εργασίας. Τετράδια εργασίας. Προσθέστε εύκολα νέο βιβλίο εργασίας, ωστόσο…