Ereignis "AfterPrint"??
13.11.2003 13:38:12
Frank U.
gibt es eigentlich ein Ereignis "AfterPrint", sprich: nach dem Druck (analog zu dem Ereignis "Workbook_BeforePrint")? Oder wie könnte man sich sowas selbst bauen?
Hintergrund: Zum Zeitpunkt "BeforePrint" führe ich folgenden Code aus:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.name = ActiveWorkbook.Sheets(1).name Then
ActiveWorkbook.Sheets(1).Visible = True
ActiveWorkbook.Sheets(Array(1, 2)).Select
End If
End Sub
Ziel ist: Wenn Blatt 1 des Workbooks aktiv ist, soll automatisch der Inhalt von Blatt 2 mit ausgedruckt werden (der Inhalt darin wird automatisch generiert).
Nach dem Druck möchte ich nun die Markierung wieder exklusiv auf Blatt 1 setzen und Blatt 2 wieder verschwinden lassen (visible=false). Ich hab aber bis jetzt kein Ereignis gefunden, das dies zum richtigen Zeitpunkt erledigt.
Vielleicht kann mir einer von Euch helfen?!
Danke im Voraus!