Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet header including a named range
I've had difficulty posting this so am not if it's been posted. If this is a
duplicate, please accept my apologies. I have the following worksheet_beforeprint event Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = _ "&""Arial,Bold""&12 TEST: &""Arial,Regular""&10" _ & Chr(10) & "Last date saved: " & Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") .RightHeader = "" .LeftFooter = "" .CenterFooter = "" & Chr(10) & "&P of &N" .RightFooter = "" End With Application.ScreenUpdating = True End Sub For the CENTER HEADER, I want to display the named range PROGRAM prior to the value TEST. How do I do this? Thanks in advance |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet header including a named range
Do you want this Barb .CenterHeader = _ "&""Arial,Bold""&12" & Range("PROGRAM").Value & " Test:" & _ "&""Arial,Regular""&10" & Chr(10) & "Last date saved: " & _ Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") -- Regards Ron de Bruin http://www.rondebruin.nl "Barb Reinhardt" wrote in message ... I've had difficulty posting this so am not if it's been posted. If this is a duplicate, please accept my apologies. I have the following worksheet_beforeprint event Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = _ "&""Arial,Bold""&12 TEST: &""Arial,Regular""&10" _ & Chr(10) & "Last date saved: " & Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") .RightHeader = "" .LeftFooter = "" .CenterFooter = "" & Chr(10) & "&P of &N" .RightFooter = "" End With Application.ScreenUpdating = True End Sub For the CENTER HEADER, I want to display the named range PROGRAM prior to the value TEST. How do I do this? Thanks in advance |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet header including a named range
Thanks, that does it.
"Ron de Bruin" wrote: Do you want this Barb .CenterHeader = _ "&""Arial,Bold""&12" & Range("PROGRAM").Value & " Test:" & _ "&""Arial,Regular""&10" & Chr(10) & "Last date saved: " & _ Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") -- Regards Ron de Bruin http://www.rondebruin.nl "Barb Reinhardt" wrote in message ... I've had difficulty posting this so am not if it's been posted. If this is a duplicate, please accept my apologies. I have the following worksheet_beforeprint event Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = _ "&""Arial,Bold""&12 TEST: &""Arial,Regular""&10" _ & Chr(10) & "Last date saved: " & Format(ThisWorkbook.BuiltinDocumentProperties("las t save time").Value, "dd-mmm-yyyy") .RightHeader = "" .LeftFooter = "" .CenterFooter = "" & Chr(10) & "&P of &N" .RightFooter = "" End With Application.ScreenUpdating = True End Sub For the CENTER HEADER, I want to display the named range PROGRAM prior to the value TEST. How do I do this? Thanks in advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Named Range in Customer Header | Excel Discussion (Misc queries) | |||
Creating a Dynamic Named Range Using Sheet Name and Column Header | Excel Programming | |||
Using a named range in a header with VBA? | Excel Discussion (Misc queries) | |||
Named Range in Center Header | Excel Programming | |||
Can't Get data without including Header using ADO | Excel Programming |