Druckbereich verschiedener Spalten
15.09.2004 18:22:20
Gregor
Ich möchte aus einer Tabelle per Makro folgenden Druckbereich festlegen und per Seitenansicht (auf einer Seite!) anschauen:
A4 bis D letzte Zeile und J4 bis P letzte Zeile
Sowei bin ich gekommen, aber ich möchte eben nicht nur die aneinandergereihte Spalten. Das müsste doch irgendwie gehen.
Sub Druckbereich()
Dim compose As String
intLastRowPrint = Cells(Rows.Count, 1).End(xlUp).Row
compose = "$A$4:$D$" & intLastRowPrint
With ActiveSheet.PageSetup
.PrintArea = compose
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Vielen Dank
Gregor