Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 22-07-10, 06:32
Το avatar του χρήστη gr8styl
gr8styl Ο χρήστης gr8styl δεν είναι συνδεδεμένος
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
Προεπιλογή

Καλημέρα.
Πολύ σωστά Μανώλη.
Η πρότασή μου για πρόχειρη εκτύπωση δεν τυπώνει και τα περιγράμματα αν υπάρχουν.
Θα συμφωνήσω λοιπόν ότι η λύση βρίσκετε στην VBA.
Στην περίπτωση όπου έχουμε περισσοτερες της μιας περιοχές ή/και περισσότερα του ενός χρώματα σαν φόντο, νομίζω ότι ο παρακάτω κώδικας κάνει καλύτερα την δουλειά.
Κώδικας:
Sub Print_without_interior_color()
   Application.DisplayAlerts = False
   Application.ScreenUpdating = False
'change sheet's name from MyData to yours
   Sheets("MyData").Copy Before:=Sheets(1)
   Sheets(1).Cells.Interior.ColorIndex = xlNone
   Sheets(1).PrintOut Copies:=1
   Sheets(1).Delete
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
End Sub
Μόνη προϋπόθεση να έχουμε προεπιλέξει τον εκτυπωτή.
MyData είναι το όνομα που φύλλου που περιέχει τα δεδομένα.
Θανάσης
ΥΓ. Δεν γύρισα αλλά μόλις τώρα άρχισα τις διακοπές.
Απάντηση με παράθεση