Formatting Date to show Month in Customized Header - Can it

[eliW]

Hi all,
I need to show Month instead of
Date in the header of my prints. Can Date be formatted to show Month?

Much appreciation to any hint.

Eli
This message was edited by eliW on 2002-10-02 08:42

 

[JetPhoenix]

Most def.

try this format...

ls_date = Format(ls_date, "dd mmmm yyyy")

works fine for me in my add-in.

 

[eliW]

On 2002-10-02 06:50, JetPhoenix wrote:
Most def.

try this format...

ls_date = Format(ls_date, "dd mmmm yyyy")

works fine for me in my add-in.

Thank you but can you give me a more detailed explenation?

I know how to format Date to show the month only: it's "mmm".
What I need is to do it in the Page Setup - Customized Header -
Date button.

Eli

 

[Andrew Poulsom]

I don't know a way to do it without VBA.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = Format(Now, "MMM")
    End With
End Sub

Right click the Excel icon to the left of File on the menu and choose View Code. Paste in the above.

 

[eliW]

On 2002-10-02 08:09, Andrew Poulsom wrote:
I don't know a way to do it without VBA.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = Format(Now, "MMM")
    End With
End Sub

Right click the Excel icon to the left of File on the menu and choose View Code. Paste in the above.

Thanks a lot Andrew, It works fine.
Just one more question: I'll use this code to put a whole sentence like:
LeftHeader = "Report for " & Format(Now, "MMM,YYYY")

How can I put an underline for this header?

Eli

 

[Andrew Poulsom]

Like this:

.LeftHeader = "&UReport for " & Format(Now, "MMM,YYYY")

Look up the LeftHeader property in VBA Help and click "format codes" for more options.