hintergrundfarbe
06.10.2005 12:53:47
flo
habe folgendes problem:
ich habe in der ganzen arbeitsmappe felder markiert (farbe 19, die nur diese felder bekommen) und möchte, das diese farbe (19) beim ausdruck nicht dabei ist.
s/w ist keine lösung, da andere felder und text farbig sein muss.
es sollte möglich sein, dass ich die mappe oder nur register einzeln ausdrucken kann.
optimal wäre, wenn die farbe vor dem ausdruck verschwindet und nach dem ausdruck wieder kommt.
in einem anderen beitrag hat mir thomas soweit geholfen, das in einem gewissen bereich die farbe verschwindet.
Code dazu:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim c As Range
For Each c In ActiveCell.CurrentRegion
If c.Interior.ColorIndex = 19 Then c.Interior.ColorIndex = xlNone
Next
End Sub
2 probleme habe ich aber noch:
1. gibt es keinen anderen ausdruck wir CurrentRegion, der einfach alles erfasst? wenn ich ein teil die mittlere tabelle markiert habe wird nur dieser verändert, jedoch nicht die tabelle, die weiter oben ist.
2. schon wenn ich auf seitenansicht gehe wird der hintergrund gelöscht und ist danach nicht mehr da. es wäre super, wenn die farbe erst mit dem druckauftrag verschwindet oder ähnliches.
ich hoffe, dass ich das problem halbwegs schildern konnte
mfg flo