WorkSheets_BeforePrint ??????

Bild

Betrifft: WorkSheets_BeforePrint ??????
von: Kersten
Geschrieben am: 07.04.2005 12:04:25
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

Bild

Betrifft: AW: WorkSheets_BeforePrint ??????
von: ANdreas
Geschrieben am: 07.04.2005 12:18:19
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
Bild

Betrifft: AW: Fehlerberichtigung
von: ANdreas
Geschrieben am: 07.04.2005 12:20:05
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
 Bild

Beiträge aus den Excel-Beispielen zum Thema "WorkSheets_BeforePrint ??????"