ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Format header in page setup (https://www.excelbanter.com/excel-programming/449748-re-format-header-page-setup.html)

[email protected]

Format header in page setup
 
On Tuesday, 12 March 2002 13:49:17 UTC, Martin Gregory wrote:
I would like to format the centre header with Aerial bold 14 similar
to the right header and have tried many combinations - none of which
work! The code I'm using is:

With ActiveSheet.PageSetup

.CenterHeader = Me.ContractName.Text & Chr(10) & "Cash Flow
Forcast"
.RightHeader = "&""Arial,Bold""&D"
.RightFooter = Application.UserName
.Orientation = xlLandscape
.CenterHorizontally = True
.CenterVertically = False
End With

What do I need to change in the code?



J @@

Format header in page setup
 
Hi
This should be fine
.RightHeader = "&""Arial,Normal""&14&D"

Regards
J@@

Le 26/01/2014 04:31, a écrit :
On Tuesday, 12 March 2002 13:49:17 UTC, Martin Gregory wrote:
I would like to format the centre header with Aerial bold 14 similar
to the right header and have tried many combinations - none of which
work! The code I'm using is:

With ActiveSheet.PageSetup

.CenterHeader = Me.ContractName.Text & Chr(10) & "Cash Flow
Forcast"
.RightHeader = "&""Arial,Bold""&D"
.RightFooter = Application.UserName
.Orientation = xlLandscape
.CenterHorizontally = True
.CenterVertically = False
End With

What do I need to change in the code?




J @@

Format header in page setup
 
sorry
try this
.CenterHeader = "&""Arial,Bold""&14" & Me.ContractName.Text & Chr(10) & "Cash Flow Forcast"
J@@

Le 26/01/2014 04:31, a écrit :
On Tuesday, 12 March 2002 13:49:17 UTC, Martin Gregory wrote:
I would like to format the centre header with Aerial bold 14 similar
to the right header and have tried many combinations - none of which
work! The code I'm using is:

With ActiveSheet.PageSetup

.CenterHeader = Me.ContractName.Text & Chr(10) & "Cash Flow
Forcast"
.RightHeader = "&""Arial,Bold""&D"
.RightFooter = Application.UserName
.Orientation = xlLandscape
.CenterHorizontally = True
.CenterVertically = False
End With

What do I need to change in the code?





All times are GMT +1. The time now is 01:24 AM.

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