[Εκτύπωση] Εκτύπωση μερικών χρωμάτων

[manolis]

Καλησπέρα

Θανάση σε ευχαριστώ για την προταση σου θα την χρησιμοποιήσω σε άλλες περιπτώσεις γιατι στην δικια μου περίπτωση θέλω να βγάλω το χρώμα απο μερικά κελια όπως στο συνημμένο

Και μια ερώτηση έτσι για την ιστορία

Επιλέγω τα κελιά με αυτό τρόπο και αλλαζω το χρώμα τους

Range("B1:B3").Select
With Selection.Interior
.Pattern = xlNone
End With

Range("B9:B23").Select
With Selection.Interior
.Pattern = xlNone
End With

Range("B33:E46").Select
With Selection.Interior
.Pattern = xlNone
End With

Και αναρωτιέμαι ανα μπορεί η επιλογή να γίνει συνολικά

Δοκίμασα αυτόν τρόπο άλλα δεν πέτυχε

Range("B1:B3; B9:B23;B33:E46;").Select
With Selection.Interior
.Pattern = xlNone
End With

Δοκιμασα και αυτόν

Range("B1:B3").Select
Range("B9:B23").Select
Range("B33:E46").Select
With Selection.Interior
.Pattern = xlNone
End With

Αλλα τίποτα
Υπάρχει τρόπος να γίνει

Ευχαριστώ
Μανώλης

[Tasos]

Μανώλη καλησπέρα!
Αν χρησιμοποιήσεις τη μορφοποίηση υπό όρους
θα μπορέσεις να εκτυπώσεις τους πίνακες σου
με τον τρόπο που επιθυμείς.
Δες το συνημμένο παράδειγμα.

Καλή συνέχεια

Τάσος

[gr8styl]

Αρχική Δημοσίευση από manolis

Και μια ερώτηση έτσι για την ιστορία
...
Και αναρωτιέμαι ανα μπορεί η επιλογή να γίνει συνολικά
...
Υπάρχει τρόπος να γίνει

Ευχαριστώ
Μανώλης

Μανώλη για την ερώτηση ιστορίας δοκίμασε απλά

Range("B1:B3").Interior.Pattern = xlNone
Range("B9:B23").Interior.Pattern = xlNone
Range("B33:E46").Interior.Pattern = xlNone

χωρίς selection, with κλπ.

Τα λέμε.

[manolis]

Καλημέρα

Σας ευχαριστώ για τις απαντήσεις σας.
Τάσο θα τελικά θα χρησιμοποιήσω την 2η προταση σου γιατί νομίζω οτι θα είναι πιο ευκολη για αυτους που θα δουλευουν το αρχείο

Και τώρα σαλπάρω για Αμοργό
Θα τα πούμε το Σεπτέβρη

Φιλικα
Μανώλης