Column headers appearing on every page

[Craig G]

When using page breaks, my column headers appear on the top of each page.

However I want to the last page of the the sheet to not show these headers
but cannot find a way to do this.

Please note these are column headers and not 'header/footer' headers.

Any help would be appreciated!

Thanks
Craig

 

[Gord Dibben]

Craig

I assume you have "rows to repeat at top" set to row 1 which is your title row.

With this setting it all or nothing unless you employ some VBA.

Here is a revision of a Ron de Bruin macro which will suppress the title row on
last page.

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
ActiveSheet.PrintOut From:=1, To:=TotPages - 1
.PrintTitleRows = False
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub


Gord Dibben MS Excel MVP

 

[Craig G]

That's great. Thanks Gord!

Craig

Craig

I assume you have "rows to repeat at top" set to row 1 which is your title row.

With this setting it all or nothing unless you employ some VBA.

Here is a revision of a Ron de Bruin macro which will suppress the title row on
last page.

Sub Test()
Dim TotPages As Long
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
ActiveSheet.PrintOut From:=1, To:=TotPages - 1
.PrintTitleRows = False
ActiveSheet.PrintOut From:=TotPages, To:=TotPages
End With
End Sub


Gord Dibben MS Excel MVP