Makrostart bei Workbook_BeforePrint

Bild

Betrifft: Makrostart bei Workbook_BeforePrint
von: Chris b
Geschrieben am: 26.11.2003 13:09:27

Hallo Excel Profis,
stehe vor einem Riesen Probelm und hoffe ihr habt auch hier mal wieder einen super tipp für mich.
Es geht um einen Makrostart.
hier nur kleines bsp:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
cells(1,1) = "test"
End Sub


jetzt schreibt mir das Makro bevor das Blatt gedruckt wird in die Zelle 1,1
das Wort "test" das soll aber erst passieren wenn das Blatt gedruckt wurde.
Der Makrostart sollte so aussehen.
bsp:


Private Sub Workbook_afterPrint(Cancel As Boolean)
cells(1,1) = "test"
End Sub


also nicht before Print sonderen after Print.
Gibts da eine möglichkeit wenn ja währe ich euch sehr dankbar !

gruß Christian
Bild


Betrifft: AW: Makrostart bei Workbook_BeforePrint
von: Martial
Geschrieben am: 26.11.2003 13:58:11

Hi Christian

versuchs mal so:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWindow.SelectedSheets.PrintOut
cells(1,1) = "test"
cancel = true
End Sub



Hat allerdings so seine Tücken im Bezug auf Seitenansicht und auszuwählendem Bereich. Mit ein bisschen Testen bekommt man es aber hin. Habe leider gerade kein gutes Beispiel parat...

Gruss, Martial


Bild


Betrifft: AW: Makrostart bei Workbook_BeforePrint
von: FCH
Geschrieben am: 26.11.2003 14:16:55

Hi,

Gerätst du so nicht in eine Schleife, die dazu führt, dass nix gedruckt wird? Hab es jetzt nicht getestet. Ich meine, du musst noch das Druckereignis abfangen:


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
ActiveWindow.SelectedSheets.PrintOut
Cells(1, 1) = "test"
Cancel = True
Application.EnableEvents = True
End Sub


Gruß
FCH


Bild


Betrifft: AW: Makrostart bei Workbook_BeforePrint
von: Martial
Geschrieben am: 26.11.2003 14:22:32

oooops, stimmt ;-)

Hab ich vergessen zu erwähnen....

Gruss, Martial


Bild


Betrifft: AW: Makrostart bei Workbook_BeforePrint
von: chris b
Geschrieben am: 26.11.2003 16:18:12

Hi ihr beiden !
Danke für die Hilfe !!! Chris


Bild

Beiträge aus den Excel-Beispielen zum Thema " Makrostart bei Workbook_BeforePrint"