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
Inhaltsverzeichnis

WorkSheets_BeforePrint ??????

Forumthread: WorkSheets_BeforePrint ?

WorkSheets_BeforePrint ?
07.04.2005 12: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 12: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 12: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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige