Wechsel von Druckansicht - zu Normalansicht

Forumthread: Wechsel von Druckansicht - zu Normalansicht
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 16:08:03

Christian Witt

Hallo Experten

Habe folgendes Problem:
Ich lasse mir die Druckansicht über Makro erzeugen, wobei ich vorher nach definierten Daten filtere. Verlasse ich nun diese Druckansicht übern den Knopf "Schließen", dann ist in der Normalansicht selbstverständlich der Filter aktiv. Das will ich aber vermeiden.

Wie kann man ein Makro aktivieren beim Übergang von der Druckansicht zur Normalansicht via den Knopf "Schließen"? Oder gibt es andere Lösungen?

Merci für Eure Antworten

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 16:09:27

Richard
Re: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 16:18:57

Christian Witt
Re: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 16:24:57

Richard
Re: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 18:57:01

Christian

Re: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 16:09:27

Richard

wo ist der code??

Re: Wechsel von Druckansicht - zu Normalansicht

14.03.2003 16:18:57

Christian Witt

Das ist das Makro:

Sub FilternUndDrucken()
'
' FilternUndDrucken Makro
' Makro am 12.03.2003 von Witt, Christian aufgezeichnet
'
' FILTERNAuchBeiBLATTSCHUTZ() Wiederholung des Makros
' sonst Fehler möglich:
ActiveSheet.Protect Password:="Hallo"
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
' Das eigentliche Filtern nach Spalte D:
Selection.AutoFilter Field:=4, Criteria1:="<>"
' Seitenansicht Vorschau:
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub