Σε αυτό το άρθρο, θα μάθουμε πώς να εκτυπώνετε έναν πίνακα στο Excel.
Σενάριο:
Αφού τελειώσετε με τον πίνακά σας και χρειάζεστε ένα αντίγραφο της σελίδας. Μπορείτε απλώς να επιλέξετε ένα κελί στην περιοχή πίνακα. Και μετά Κάντε κλικ Αρχείο -> Εκτύπωση -> και επιλέξτε το κουμπί επιλογής Πίνακας στην Εκτύπωση τι τμήμα. Αλλά το Excel θα το εκτυπώσει μόνο. Εδώ μαθαίνουμε πώς μπορούμε να εκτυπώσουμε οποιονδήποτε πίνακα στο Excel.
Για να αποθηκεύσετε ένα επιλεγμένο εύρος στο 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
Μια βασική χρήση είναι η εκτύπωση της επιλεγμένης περιοχής κάνοντας απλώς κλικ σε ένα κουμπί. Αλλά η καλύτερη χρήση είναι να το χρησιμοποιήσετε σε έναν βρόχο όπου πρέπει να δημιουργήσετε πολλαπλές αποδείξεις για διαφορετικούς πελάτες. Δημιουργήστε ένα δευτερεύον για τη συμπλήρωση δεδομένων και, στη συνέχεια, χρησιμοποιήστε αυτόν τον κωδικό για να εκτυπώσετε το επιλεγμένο εύρος σε έναν βρόχο.
Ελπίζω ότι αυτό το άρθρο σχετικά με τον τρόπο εκτύπωσης ενός πίνακα στο Excel είναι επεξηγηματικό. Βρείτε περισσότερα άρθρα σχετικά με τον υπολογισμό των τιμών και τους σχετικούς τύπους Excel εδώ. Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook. Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email.
Εκτυπώστε πολλές επιλογές σε ένα φύλλο χρησιμοποιώντας VBA στο Microsoft Excel | Επιλέξτε πολλά εύρη και εκτυπώστε κάθε εύρος σε διαφορετικό φύλλο χρησιμοποιώντας VBA.
Εκτυπώστε όλα τα βιβλία εργασίας σε ένα φάκελο χρησιμοποιώντας VBA στο Microsoft Excel | Χρησιμοποιήστε αυτόν τον κώδικα VBA για να εκτυπώσετε και να αποθηκεύσετε κάθε βιβλίο εργασίας excel σε ένα φάκελο χρησιμοποιώντας.
Διαχωρίστε το φύλλο Excel σε πολλά αρχεία με βάση τη στήλη χρησιμοποιώντας VBA | Αυτός ο κώδικας VBA διαχωρίζει τη βάση φύλλου excel σε μοναδικές τιμές σε μια καθορισμένη στήλη. Κατεβάστε το αρχείο εργασίας.
Απενεργοποιήστε τα μηνύματα προειδοποίησης χρησιμοποιώντας το VBA στο Microsoft Excel 2016 | Για να απενεργοποιήσουμε τα προειδοποιητικά μηνύματα που διακόπτουν τον τρέχοντα κώδικα VBA, χρησιμοποιούμε την κλάση Εφαρμογή.
Προσθήκη και αποθήκευση νέου βιβλίου εργασίας χρησιμοποιώντας το VBA στο Microsoft Excel 2016 | Για να προσθέσετε και να αποθηκεύσετε βιβλία εργασίας χρησιμοποιώντας VBA, χρησιμοποιούμε την τάξη βιβλίων εργασίας. Τετράδια εργασίας. Προσθέστε ένα νέο βιβλίο εργασίας εύκολα, ωστόσο…
Δημοφιλή άρθρα:
Πώς να χρησιμοποιήσετε τη συνάρτηση IF στο Excel : Η δήλωση IF στο Excel ελέγχει την κατάσταση και επιστρέφει μια συγκεκριμένη τιμή εάν η συνθήκη είναι TRUE ή επιστρέφει μια άλλη συγκεκριμένη τιμή εάν είναι FALSE.
Πώς να χρησιμοποιήσετε τη συνάρτηση VLOOKUP στο Excel : Αυτή είναι μια από τις πιο χρησιμοποιούμενες και δημοφιλείς λειτουργίες του excel που χρησιμοποιείται για την αναζήτηση τιμών από διαφορετικά εύρη και φύλλα.
Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel : Αυτή είναι μια άλλη βασική λειτουργία του πίνακα ελέγχου. Αυτό σας βοηθά να συνοψίσετε τιμές υπό συγκεκριμένες συνθήκες.
Πώς να χρησιμοποιήσετε τη συνάρτηση COUNTIF στο Excel : Μετρήστε τιμές με συνθήκες χρησιμοποιώντας αυτήν την εκπληκτική συνάρτηση. Δεν χρειάζεται να φιλτράρετε τα δεδομένα σας για να μετρήσετε συγκεκριμένες τιμές. Η λειτουργία Countif είναι απαραίτητη για την προετοιμασία του ταμπλό σας.