Durch Druckvorgang ein Makro ausführen
11.02.2013 20:21:50
Golem
durch manuelles Ausführen folgenden Makros
Private Sub Workbook_Print()
ActiveSheet.Range("C3:F9").Interior.ColorIndex = xlColorIndexNone
ActiveSheet.Range("C12:F18").Interior.ColorIndex = xlColorIndexNone
ActiveWorkbook.ActiveSheet.PrintOut
ActiveSheet.Range("C3:F9").Interior.ColorIndex = 3
ActiveSheet.Range("C12:F18").Interior.ColorIndex = 6
End Sub
dass Tabellenblatt gedruckt und danach in diesen Zellbereichen
die Hintergrundfarbe wieder neu gesetzt.
Funktioniert auch.
Ich versuche dieses Makro durch einen Druckvorgang zu starten,
aber es funktioniert nicht.
Wenn ich einen Druckvorgang ausführe, dann wird das Tabellenblatt
mit den farbigen Zellen gedruckt.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Schöne Grüße
Werner Go.