ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Setting up and Configuration of Excel (https://www.excelbanter.com/setting-up-configuration-excel/)
-   -   Column headers appearing on every page (https://www.excelbanter.com/setting-up-configuration-excel/145578-column-headers-appearing-every-page.html)

Craig G

Column headers appearing on every page
 
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

Column headers appearing on every page
 
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

On Thu, 7 Jun 2007 03:35:00 -0700, Craig G <Craig
wrote:

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



Craig G[_2_]

Column headers appearing on every page
 
That's great. Thanks Gord!

Craig

"Gord Dibben" wrote:

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

On Thu, 7 Jun 2007 03:35:00 -0700, Craig G <Craig
wrote:

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





All times are GMT +1. The time now is 02:38 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com