Spaltenüberschrift auf jeder Druckseite anzeigen
03.03.2009 12:25:07
Stefan
wie bekomme ich es hin, dass bei einem Mehrseitendruck immer die Spaltenüberschrift ("I1:Z1")
auch auf der zweiten, dritten usw. Seite zur Orientierung angegeben wird?
Mein Code sieht bislang wie folgt aus:
Sub DruckBereich()
Dim X As Range
Set X = Range(Cells(1, 9), _
Cells(Cells(Rows.Count, 9).End(xlDown).Row, 26))
ActiveSheet.PageSetup.PrintArea = X.Address
ActiveSheet.PrintPreview
End Sub
Danke für Euere Hilfe, Stefan