Πώς να Εκτύπωση μονές και ζυγές σελίδες στο Excel 2007

Ενώ η Microsoft Excel 2007 προσφέρει μια ποικιλία από επιλογές για την εκτύπωση από το μενού εκτύπωσης στη γραμμή εργαλείων , δεν θα σας δώσει τη δυνατότητα εκτύπωσης μονών ή ζυγών σελίδων . Ευτυχώς , υπάρχει ένα εργαλείο που μπορείτε να χρησιμοποιήσετε για να εκτυπώσετε τις μονές και τις ζυγές σελίδες : Visual Basic for Applications ( VBA ) . VBA είναι ενσωματωμένη στο Excel 2007 , και σας επιτρέπει να προσαρμόσετε το Excel για να ταιριάζει στις ανάγκες σας . Αυτό περιλαμβάνει μακροεντολές λειτουργίας ( προγράμματα που εκτελούν μια συγκεκριμένη εργασία ) . Οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " στο Excel 2007 . 2

Κάντε κλικ στο " Visual Basic" για να ανοίξει το Visual Basic Editor ( VBE ) .

Η

3 Κάντε κλικ στο κουμπί "Εισαγωγή " και στη συνέχεια " ενότητα " για να ανοίξει ένα κενό παράθυρο ενότητα
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο ενότητα :

Sub PrintOddEven ( )

Dim TotalPages Όπως Long

Dim Αρχικής Όπως Long

Dim Page As Integer

Αρχικής = InputBox ( " Enter αρχικός αριθμός σελίδας " )

TotalPages = Application.ExecuteExcel4Macro ( " GET.DOCUMENT ( 50 ) " )

Εάν startpage > 0 και Αρχικής <= TotalPages τότε

για Page = Αρχικής να TotalPages βήμα 2

ActiveSheet.PrintOut Από : = Page , Προς: = Page , _

Αντίγραφα : = 1 , Συρραφή : = True

Επόμενη

End If

End Sub
5

Πατήστε το " F5 " για να εκτελέσετε τη μακροεντολή . Ένα pop -up παράθυρο θα εμφανιστεί και θα σας επιστραφεί στο υπολογιστικό φύλλο Excel .
Η

6 Πληκτρολογήστε τον αριθμό της αρχικής σελίδας στο πλαίσιο κειμένου . Εάν θέλετε να εκτυπώσετε τις μονές σελίδες , εισάγετε ένα περιττό αριθμό . Εάν θέλετε να εκτυπώσετε τις ζυγές σελίδες , εισάγετε ένα ζυγό αριθμό . Το Excel θα εκτυπώσετε τις μονές ή ζυγές σελίδες από αυτό το σημείο εκκίνησης . Για παράδειγμα , αν πληκτρολογήσετε " 1 ", το Excel θα εκτυπώσετε τις μονές σελίδες 1 μέχρι το τέλος του εγγράφου σας .
Η
εικόνων