
17-10-18, 09:41
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλημέρα
Χθές, ανέβασα ένα βιβλίο με την εκτύπωση, στο οποίο υπήρξε κάποιο πρόβλημα,
διότι εκ παραδρομής δεν όρισα την περιοχή εκτύπωσης...
Διέγραψα το άρθρο και ανεβάζω το νέο διορθωμένο και συμπληρωμένο.
Στο βιβλίο, υπάρχει μια εκτύπωση με παραμέτρους, που προσωπικά όπως έχω πει
και στο παρελθόν, θεωρώ, ότι πάντα πρέπει να μπαίνουν
(αν και ο κώδικας είναι αργότερος κατά λίγα δευτερόλεπτα)
αλλά έχουμε με τον τρόπο αυτό, τον απόλυτο έλεγχο της εκτύπωσης.
Στο συγκεκριμένο έργο, μπήκαν δύο γραμμές κάτω από το INVOICE τίτλο,
που επαναλαμβάνουν τις γραμμές 38-39.
Οι γραμμές είναι κρυμμένες και δεν επηρεάζουν την φόρμα του τιμολογίου.
Ο κώδικας αναλαμβάνει να τις εμφανίσει όταν πρέπει,
διότι δεν υπάρχει κανείς άλλος σωστός (κατά την γνώμη μου)
τρόπος, να έχουμε επανάληψη τίτλων σε «σπασμένες» γραμμές.
Ακόμα προστέθηκε μια λειτουργία στον κώδικα, όπου
βρίσκει πόσα PageBrakes υπάρχουν και σε ποιά γραμμή,
ωστε να μην βάζουμε καρφωτά το σπάσιμο της σελίδας, μετρώντας manual τις γραμμές.
Ο κώδικας, σκόπημα κάνει ένα loop με step 2
στην στήλη p, όταν κρύβει κενές γραμμές τιμολογίου,
για να μην εμπλακούν κελιά με merge, που κακώς χρησιμοποιούνται.
Σε άλλο φύλλο, δημιουργήθηκε μια περιοχή με ονομασμένα κελιά
που εκεί μπορούμε να βάλουμε κείμενα με το τι θα θέλαμε να εμφανίζεται στους
Headers & Footers του φύλλου.
*Προεπιλογή: Ημερομηνία και Σελίδα Χ από σελίδες Ψ
Από εκεί, μπορούμε να επιλέξουμε και τον αριθμό των αντιγράφων μας. Σημειώσεις
Μπορεί κανείς αν θέλει, να αλλάξει τις παραμέτρους, αλλά οι επιλεγμένες,
είναι αυτές που προσωπικά χρησιμοποιώ
πχ στα περιθώρια, ενώ δεξιά κερδίζει όλο το φύλλο,
αριστερά αφήνει χώρο για τρύπες αν αρχειοθετηθεί σε κλασσέρ.
Η περιοχή εκτύπωσης, ορίστηκε ως c3:p72 μέχρι την 72 γραμμή.
Στο παράδειγμα από εκεί και κάτω βλέπω κενό.
Αν παρ' όλα αυτά, υπάρχουν κάποιες γραμμές με κείμενα μέχρι την 80,
μπορεί να αλλάξει (οριστεί εκ νέου), χωρίς πρόβλημα,
αφού αλλάξουμε και στον κώδικα την Const EndLine As Integer = 72 σε 80
Ο κώδικας μπορεί εύκολα να προσαρμοστεί,
για περισσότερες των δύο σελίδων αν αυτό είναι χρήσιμο στο μέλλον.
Στον κώδικα χρησιμοποιώ Sh1, το κωδικό όνομα του φύλλου Invoice.
Sh0, το κωδικό όνομα του φύλλου H_F_Details.
|