Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Seitenansicht

Makro Seitenansicht
06.09.2016 12:44:34
Max
Hallo ihr Lieben
habe dieses makro erstellt
möchte aber das die seitenansicht nach 10 sec.
wieder in die normalansicht zurück geht
für eure hilfe wäre ich sehr dankbar
lg. max
Sub DRUCKANSICHT()
' DRUCKANSICHT Makro
ActiveWindow.SelectedSheets.PrintPreview
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Seitenansicht
06.09.2016 12:58:24
Sebastian
Hi
Füge das in ein Modul ein:

Sub test()
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
End Sub

Sub Normalansicht()
'Weiterverarbeiten des Codes
MsgBox "jetzt deinen Code für die Normalansicht"
End Sub

Statt der msgbox dann eben dein Code den du verzögern willst.
Grüße Sebastian
AW: Makro Seitenansicht
06.09.2016 13:18:07
Max
Hallo Sebastian
kannst du mir den code kommplett schreiben
bin eine 0 in sachen vba
gruß max
Sub DRUCKANSICHT()
' DRUCKANSICHT Makro
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
End Sub

Anzeige
AW: Makro Seitenansicht
06.09.2016 13:21:54
Max
Hallo Sebastian
kannst du mir den code kommplett schreiben
bin eine 0 in sachen vba
gruß max
Sub DRUCKANSICHT()
' DRUCKANSICHT Makro
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 10), "Normalansicht"
End Sub

AW: Makro Seitenansicht
06.09.2016 15:02:40
Sebastian
Hallo Max
Ich befürchte man kommt nicht aus der Druckvorschau raus, da die Makros so lange angehalten werden. Du kannst trotzdem das hier mal versuchen:
Sub test()
ActiveWindow.SelectedSheets.PrintPreview
Application.OnTime Now + TimeSerial(0, 0, 3), "Normalansicht"
End Sub

Sub Normalansicht()
Application.SendKeys "{ESC}"
End Sub
Grüße Sebastian
Anzeige
AW: danke Sebastian
06.09.2016 15:21:13
Max
danke haut nicht hin
muß was anderes versuchen
lg AX
AW: Makro Seitenansicht
06.09.2016 14:43:09
Rudi
Hallo,
die Druckvorschau kann man nicht automatisch schließen.
Gruß
Rudi
Danke Rudi "schade"
06.09.2016 15:23:24
Max
Danke Rudi "schade"

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige