Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
544to548
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige