Makrostart bei Workbook_BeforePrint

• Makrostart bei Workbook_BeforePrint von Chris b vom 26.11.2003 13:09:27
  • AW: Makrostart bei Workbook_BeforePrint - von Martial am 26.11.2003 13:58:11
    • AW: Makrostart bei Workbook_BeforePrint - von FCH am 26.11.2003 14:16:55
      • AW: Makrostart bei Workbook_BeforePrint - von Martial am 26.11.2003 14:22:32
        • AW: Makrostart bei Workbook_BeforePrint - von chris b am 26.11.2003 16:18:12

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

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

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

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

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

Excel-Beispiele zum Thema " Makrostart bei Workbook_BeforePrint"
Makrostart bei Auswahl einer Zelle in Zeile 3