Zellenfarbe aus - einblenden
22.02.2008 18:03:00
Roland
Ich habe folgendes Problem
Ich verwende ein geschütztes Tabellenblatt das der Benutzer ausfüllen muss. Um eine kleine Hilfe zu bieten, möchte ich die auszufüllenden Zellen farbig hinterlegen. Beim ausdrucken sollte aber diese Frabe entfernt werden und nach dem Ausdrucken wieder mit der Farbe belegt werden, damit das Formular wieder gleich aussieht wie vor dem Drucken.
Nun habe ich verschiedene Lösungsansätze ausprobiert. ZB.
Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWorkbook.Colors(36) = RGB(255, 255, 255)
End Sub
Damit stelle ich alle Eingabe-Felder auf weiss. Da es kein "nach dem Druck Ereignis" gibt, habe ich folgenden Code ins Tabellenblatt geschrieben.
Sub Worksheet_Activate()
ActiveWorkbook.ResetColors
End Sub
Das Problem bei dieser Lösung ist aber, dass natürlich erst beim Blattwechsel die Formularfelder wieder eingefärbt werden und nicht, wenn der Druck erledigt ist.
Hat jemand eine Jdee, wie man dieses Problem lösen könnte?
Besten Dank für eure Hilfe
Gruss
Roland