Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro NACH Drucken ausführen

Makro NACH Drucken ausführen
23.03.2006 14:55:04
Mario
Hallo, Folgendes Problem.
Um unsere Bestellungen in eine Budget-Tabelle zu übertragen habe ich z.Zeit das Drucken über das Menü mit folgenen Makro blockiert.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = ActivePrinter <> "Lager"
MsgBox "Bestellen nur über Button 'Senden' möglich"
End Sub

Leider funktioniert aber auch die Seitenansicht dadurch nicht mehr.
Wie kann ich es erreichen, das ich ein Makro erst nach dem Drucken ausführe, bzw. erst wenn man im DruckerAuswahlDialog den OK-Button drückt (od. im Menü der Drucker-Button).
Mario

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro NACH Drucken ausführen
23.03.2006 15:53:13
Beate
Hallo,
in diesem Thread findest du ein sehr schönes Beispiel von Uwe Küstner, in dem Beispiel Zellent-/-einfärbung: http://www.online-excel.de/fom/a123x

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo Ende
Application.EnableEvents = False 'Ereignisse werden ausgeschaltet
Cancel = True 'Durckauftrag wird annulliert
With ActiveSheet
.Range("A7:B14").Interior.ColorIndex = xlNone 'Zellen werden entfärbt
.PrintOut 'jetzt wird gedruckt
.Range("A7:B14").Interior.ColorIndex = 6 'Zellen werden gefärbt
End With
Ende:
Application.EnableEvents = True 'Ereignisse werden angeschaltet
End Sub

Vor dem Ausdruck muss ja nicht unbedingt etwas stattfinden.
Gruß,
Beate
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige