Printarea angeben
27.06.2005 11:55:19
Patient
wisst ihr, wie die PrintArea dynamisch ändern kann. Ich habe eine Liste die immer eine andere Größe hat, jetzt wollte ich die PrintArea mit einem VBA-Skript so ändern, dass nur die Zeilen Ausgedruckt werden, in denen auch was drinsteht. Aber das hier funktioniert nicht.
'Feststellung der letzten Zeile in der Tabelle
maxquellRow = ActiveSheet.Cells.Find(What:="*", _
After:=ActiveSheet.Range("A1"),
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
'Festlegung einer dynamischen PrintArea
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$maxQuellRow"