Druckbereich eingrenzen
16.06.2007 12:56:00
AndreasB
Ich habe mir ein Makro zusammengebastelt welches mir den Druckbereich eingrenzen
soll. Der Druckbereich geht immer bis zur grauen Spalte, startet beim ersten Eintrag
zwischen Spalte A und der grauen Spalte und endet beim letzten Entrag zwischen
Spalte A und der grauen Spalte.
In der Datei
https://www.herber.de/bbs/user/43299.xls
ist der Druckbereich welcher festgelegt werden soll fett umrandet. Mein
Makro legt aber nur den blau markierten Bereich fest. Was habe ich falsch gemacht?
Anbei das Makro:
Sub Druckbereicheingrenzen()
If Range("A1") = "" Then
zl = Cells.Find("*", SearchDirection:=xlNext).Row
Else
zl = 1
End If
sp = Cells.Find("*", SearchDirection:=xlPrevious).Row
ActiveSheet.PageSetup.PrintArea = Range("A" & zl & ":M" & sp).Address
End Sub
Vielen Dank für einen Korrekturvorschlag
Andreas