Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich festlegen

Druckbereich festlegen
30.04.2013 11:11:21
stef26
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich festlegen
30.04.2013 12:28:45
Rudi
Hallo,
.PageSetup.PrintArea = "$A$1:$T$ &.cells(rows.count, 1).end(xlup).row
Gruß
Rudi

AW: Druckbereich festlegen
30.04.2013 16:04:29
stef26
SUUUPER !!!!!!
D A N K E !!
:-)
Stefan
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige