Druckbereich festlegen
07.01.2008 18:19:13
Karl
Ich möchte gerne Exel dazu veranlassen, das wenn ich einen Button drücke, das Excel schaut bis zu welcher Zeile Die Tabelle beschrieben ist, und wenn die Tabelle nur bis A1:N40 beschrieben ist dann soll allesauf ein Blatt gedruckt werden, ist der Bereich aber Größer A1:N100 dann soll alles auf zwei Blättern gedruckt werden.
Ich benutze folgenden Code für den Ausdruck. Kann mir jemand weiter Helfen und Ihn anpassen
Private Sub CommandButton3_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$40"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.Zoom = False
.Orientation = xlLandscape
.Draft = False
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.PrintOut
End Sub
vielen Dank Karl