Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ereignis Drucken ?

Forumthread: Ereignis Drucken ?

Ereignis Drucken ?
14.01.2005 07:48:34
Peter
Hallo Excels,
Wie kann ich erreichen das nach dem Drucken eines Beleges immer ein Makro gestartet wirt?
Gruss
Peter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ereignis Drucken ?
14.01.2005 08:02:42
Sebastian
Hallo
Führst du das Drucken über den Excel-Drucken-Button oben links aus oder als selbst erstellte Schaltfläche?
Wenn du eine eigene Schaltfläche hast, kannst du in Code einfach nach drucken den Makronamen einsetzten, dann wird es gestartet.
Ansonsten, wäre es sinnvoll, einen anzulegen.
Gruss
Sebastian
Anzeige
AW: Ereignis Drucken ?
14.01.2005 08:16:50
Peter
Hallo Sebastian,
ich führe das über eine selbst erstellte Schaltfläche aus.
Aber genau dasmöchte ich nicht.Es soll ein Makro starten wenn das (Excel Drucken Button)gedrückt wirt.
So habe ich ich es bisher gemacht. 

Sub Druck()
With Sheets("Beleg")
.PrintOut
End With
Call Auto_open
End Sub

Gruss Peter
Anzeige
AW: Ereignis Drucken ?
14.01.2005 08:20:00
Sebastian
Sorry Peter,
aber da weiß ich auch nicht weiter.
Gruss
Sebastian
AW: Ereignis Drucken ?
UweD
Hallo so gehts

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "DieseArbeitsmappe" doppelklicken

  • Im neuen Fenster das Makro einfügen



Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True ' bricht den Druck ab
Application.EnableEvents = False
With Sheets("Beleg")
.PrintOut ' Druckt neu aus
End With
Application.EnableEvents = True
Call Auto_open
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige