ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Repeat Multiple Page Headers using VBA (https://www.excelbanter.com/excel-programming/292277-repeat-multiple-page-headers-using-vba.html)

CST[_2_]

Repeat Multiple Page Headers using VBA
 
Is there a way to print multiple row headers? For example, I have a
the following:

A B C
1 2 3
3 2 1

D E F
1 2 3
3 2 1

I want to repeat cols A:C for the first data range when it spills over
to page 2. Cols D:F is the next data range on page 2, which spills
over to page 3. I now want D:F to be the headers. So in summary, I
want page 1-2 to have A:C header and at the same time on page 2-3 have
D:F. I hope this makes sense and that this it is possible.

I have used this code, but it only works for 1 continuous range.
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With

It would be nice to have something like this, but it doesn't work:
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleRows = "$20:$20"
.PrintTitleRows = "$40:$40"

Tom Ogilvy

Repeat Multiple Page Headers using VBA
 
You would have to print each section separately and reset the rows to repeat
at top prior to printing.

--
Regards,
Tom Ogilvy

"CST" wrote in message
om...
Is there a way to print multiple row headers? For example, I have a
the following:

A B C
1 2 3
3 2 1

D E F
1 2 3
3 2 1

I want to repeat cols A:C for the first data range when it spills over
to page 2. Cols D:F is the next data range on page 2, which spills
over to page 3. I now want D:F to be the headers. So in summary, I
want page 1-2 to have A:C header and at the same time on page 2-3 have
D:F. I hope this makes sense and that this it is possible.

I have used this code, but it only works for 1 continuous range.
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
End With

It would be nice to have something like this, but it doesn't work:
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
.PrintTitleRows = "$20:$20"
.PrintTitleRows = "$40:$40"
.
.
.
. etc.....
End With

TIA




Con Tang

Repeat Multiple Page Headers using VBA
 
Thank you for the response. Unfortunately, we have to have these
sections continuous. I pretty much thought that there wasn't a way, but
wanted to throw the question out anyways. Any other suggestions? TIA!



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Tom Ogilvy

Repeat Multiple Page Headers using VBA
 
Move your sections to separate sheets, define the rows to repeat at top for
each, group the sheets and print.

--
Regards,
Tom Ogilvy

"Con Tang" wrote in message
...
Thank you for the response. Unfortunately, we have to have these
sections continuous. I pretty much thought that there wasn't a way, but
wanted to throw the question out anyways. Any other suggestions? TIA!



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!





All times are GMT +1. The time now is 05:16 PM.

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