Nancy weiß, wie man ein Arbeitsblatt so formatiert, dass die Zeilen oben auf jeder Seite eines Ausdrucks wiederholt werden. Was sie jedoch tun möchte, ist, die Zeilen oben auf jeder gedruckten Seite mit Ausnahme der letzten zu wiederholen.

Es gibt keine direkte Möglichkeit, dies zu tun, aber Sie können einen solchen Druck simulieren, indem Sie ein Makro verwenden, um die Aufgabe auszuführen. Alles, was Sie tun müssen, ist, dass das Makro alle außer Ihrer letzten Seite druckt, dann das Seiten-Setup so ändert, dass die Zeilen nicht wiederholt werden, und schließlich die letzte Seite des Ausdrucks druckt. Das folgende Makro bietet ein Beispiel für diesen Ansatz.

Sub PrintWorksheet()

Dim lPages As Long     Dim sTemp As String

lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

With ActiveSheet.PageSetup         ActiveSheet.PrintOut From:=1, To:=lPages - 1         sTemp = .PrintTitleRows         .PrintTitleRows = ""

ActiveSheet.PrintOut From:=lPages, To:=lPages         .PrintTitleRows = sTemp     End With End Sub

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3389) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: