
22-07-10, 06:32
|
 | 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 είναι το όνομα που φύλλου που περιέχει τα δεδομένα.
Θανάσης
ΥΓ. Δεν γύρισα αλλά μόλις τώρα άρχισα τις διακοπές. |