09-06-13, 18:09
|
 | Διαχειριστής Όνομα: Τάσος Φιλοξενιδης Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική | | Εγγραφή: 21-10-2009
Μηνύματα: 2.035
| |
Καλησπέρα Γιώργο!
Δεν θα χρειαστείς VBA.
Όρισε το όνομα " PrintArea" και πέρασε τον παρακάτω τύπο: Κώδικας: =Sheet1!$D$2:INDEX(Sheet1!$N:$N;MAX((Sheet1!$D$1:$D$1000<>"")*ROW(Sheet1!$1:$1000)))
Στο όνομα " Print_Area" γράψε τον τύπο: = PrintArea
Μ΄αυτόν το τρόπο το μήκος της περιοχής εκτύπωσης θα αυξομειώνεται δυναμικά αναλόγως τις εγγραφές που θα εμφανίζονται στην πρώτη στήλη του πίνακα "Table1".
Προσοχή! Αν ορίσεις εκ νέου την περιοχή εκτύπωσης από το μενου της εφαρμογής, ο τύπος = PrintArea θα αντικατασταθεί!
Με εκτίμηση
Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών |