How to insert/center multiple page header in a spreadsheet using vb6.

[cassidybklyn]

How everyone,
how can I insert and center multiple page header in excel spreadsheet.

I intend to use:

With Activesheet.PageSetup
.CenterHeader = "&""Arial,Bold"" NEW YORK CITY TRANSIT AUTHORITY "
Telecommunication and Information Services Division
Project Tracking System
Updated For Period Ending 05/31/2007
End With

Note: the hard coded date "5/31/2007" should be a system date and I need the above headings centered.
Thanks.
Cassidy.

 

[PHV]

What about this ?
.CenterHeader = "&""Arial,Bold"" NEW YORK CITY TRANSIT AUTHORITY" _
& Chr(10) & "Telecommunication and Information Services Division" _
& Chr(10) & "Project Tracking System" _
& Chr(10) & "Updated For Period Ending &D"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

If it happens that you are not going to actuappy PRINT the report for the Month ending date, for instance, if you printed MAY's report, TOMORROW, which is June 1, then you might want something like this...

.CenterHeader = "&""Arial,Bold"" NEW YORK CITY TRANSIT AUTHORITY" _
 & Chr(10) & "Telecommunication and Information Services Division" _
 & Chr(10) & "Project Tracking System" _
 & Chr(10) & "Updated For Period Ending "  & Format(DateSerial(Year(Date),Month(Date),0),"mm/dd/yy")

If you ran it TODAY, it would reflect APRIL's data; Tomorrow, MAY's

Short of that, maybe you need to reference a SPECIFIC date rather than Today's date.

Skip,

_[red][/red]

 

[cassidybklyn]

Thanks a million guys. I got it. I did the trick you taught me earlier by recording a Macro and tweaking it.
Cassidy.

 

[SkipVought]

"I did the trick you taught me earlier by recording a Macro and tweaking it."

Warms my heart, Cassidy! ;-)


Skip,

_[red][/red]