Hallo Zusammen,
habe ein Problem mit dem einstellen eines Druckbereiches über VBA.
Daten stehen in Spalte A bis T (die immer wieder aktualisiert werden)
In Spalte W stehen Formeln die ich bis Zeile 5000 geschrieben habe.
Wie kann ich den Bereich A bis T drucken, so dass er nur bis ende
Spalte A druckt. (Querformat)
Bisher würde er mir 5000 Zeilen drucken...
Hab schon mal ein wenig gestöbert, aber nur diesen Code gefunden, den ich
mit meine Kenntnisse aber nicht lesen kann:
Dim lngLastRow As Long, lngLastColumn As Long
With ActiveSheet
lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lngLastColumn = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
.PageSetup.PrintArea = "$A$1:" & .Cells(lngLastRow , lngLastColumn ).Address
End With
Wer kennt sich da aus, oder hat so ein Problem auch schon mal gehabt ?
:-)
Stefan