Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

WorkSheets_BeforePrint ??????

Forumthread: WorkSheets_BeforePrint ?

WorkSheets_BeforePrint ?
07.04.2005 14:04:25
Kersten
Hallo zusammen
Gibt es so etwas wie WorkSheets_BeforePrint.
Ich möchte nämlich den Druckbereich jeder einzelnen Tabelle automatisch individuell festlegen, bevor sie ausgedruckt wird.
Danke
Gruß Kersten
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorkSheets_BeforePrint ?
07.04.2005 14:18:19
ANdreas
Hallo Kersten,
ich würde es so lösen:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim s$
Select Case ActiveSheet.Name
Case "Tabelle1": s = "A1:B20"
Case "Tabelle2": s = "C3:G45"
End Select
If Not s = "" Then ActiveSheet.PrintArea = s
End Sub

Gruß
Andreas
Anzeige
AW: Fehlerberichtigung
07.04.2005 14:20:05
ANdreas
Hallo Kersten,
auf die schnelle unterlief mir ein kleiner Fehler. Es muss natürlich so lauten:
If Not s = "" Then ActiveSheet.PageSetup.PrintArea = s
Gruß
Andreas
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum