Druckbereich - nicht alle Sheets!
25.01.2005 21:09:46
Jean-Pierre
ich habe diesen Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$P" & Range("A65536").End(xlUp).Row
End Sub
in "Diese Arbeitsmappe".
Ich möchte jedoch diesen nur für die Blätter 2-13 (Januar-Februar).
Im ersten Blatt (Gesamt) soll der Code so lauten:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = "$A$1:$K" & Range("A25").End(xlUp).Row
End Sub
Ich hoffe dies ist so richtig.
Ich möchte das die nachfolgenden Leerzeilen nicht mitgedruckt werden!
Kann mir jemand helfen, bin ein absoluter Neuling was VBA betrifft?
Schöne Grüße aus Berlin
Jean-Pierre