Problem mit Makro "Workbook_BeforePrint"
14.03.2005 12:39:27
Martin
Ich habe ein Problem mit einem Makro (was ich aber auch nur aus aus einem anderen Beitrag kopiert habe).
Ziel des Makros ist es, beim Ausdruck in Excel (egal ob das angezeigt tabellenblatt oder die gesamte Arbeitsmappe) nut einen definierten Bereich (printarea) auszudrucken.
Dazu habe ich in die jeweiligen Tabellen folgenden Code geschrieben:
Public
Sub drucke()
Application.EnableEvents = False
ActiveSheet.PageSetup.PrintArea = "A1:C39"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PrintOut
Application.EnableEvents = True
End Sub
und in diese Arbeitsmappe:
Public
Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
drucke
End Sub
Leider bekomme ich beim Klicken auf die Schaltfläche Drucken jedesmal eine Fehlermeldung("Fehler beim Kompilieren
Sub oder
Function nicht definiert")
Danach wird aber auch so wie es sein soll, der definierte Bereich ausgedruckt.
Doch warum bekomme ich die Fehlermeldung?
Danke für die ggf. folgenden Tips!
Martin