Druckbereich

Forumthread: Druckbereich

Druckbereich

10.12.2007 16:20:00

Andreas

Hallo Excel Profis,
ich möchte gern mit Hilfe eines Makros den Druckbereich festlegen!
Druckbereich Spalte A-O / alle belegten Zeilen
Meine Makro Funktioniert leider nicht:
ActiveSheet.PageSetup.PrintArea = .Range("A1:O" & .Cells(Rows.Count, 3).End(xlUp).Row).Address
Kann mir jemand weiterhelfen?
Gruß Andreas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckbereich

10.12.2007 16:25:23

Hajo_Zi
AW: Druckbereich

10.12.2007 16:26:00

Rudi
Danke!

10.12.2007 16:30:00

Andreas

AW: Druckbereich

10.12.2007 16:25:23

Hajo_Zi

Hallo Andreas,
man sollte schon den relevanten Code posten.


Option Explicit
Sub Andreas()
With ActiveSheet
.PageSetup.PrintArea = .Range("A1:O" & .Cells(Rows.Count, 3).End(xlUp).Row).Address
End With
End Sub

AW: Druckbereich

10.12.2007 16:26:00

Rudi

Hallo,
with activesheet
.pagesetup.printarea= .Range(.cells(1,1),.cells(rows.count,3).end(xlup)).address
end with
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Danke!

10.12.2007 16:30:00

Andreas

Danke an alle!
Gruß Andreas

Forumthread: Druckbereich

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread