Print-Area
05.11.2004 11:12:04
Steli
ich habe folgendes Problem beim VBA programmieren...
Wenn ich in einer Tabelle einen festgelegten Druckbereich (in diesem Beispiel A1 bis D10 definieren möchte lauten in VBA die Zauberworte:
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
so weit so gut.
Wie aber gehe ich vor, wenn der Druckbereich variabel ist?
In meinem Fall handelt es sich um eine Datenbank welche zwar die gleiche Anzahl an Spalten hat, jedoch mit der Zeit in den Zeilen wächst.Wie ich den Bereich errechne ist nicht das Problem sondern wie gebe ich die richtige Formel für den DRUCKbereich an. Excel akzeptiert leider nicht:
ActiveSheet.PageSetup.PrintArea = Range(cells(1, 1) , cells(a, 4))
wobei "a" die errechnete letzte Zeile ist.
Probiert habe ich auch folgendes:
range ("a1")
ActiveCell.CurrentRegion.Select
er markiert mir zwar in der Tabelle den Bereich, ich weiß aber nun nicht wie ich im Makro nun den Befehl gebe genau den Bereich als "Printarea" zu definieren.
Kann mir jemand helfen?
Ich sage schon mal Vielen Dank im Voraus...