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 ??????"