Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom Header
Hi,
I'm trying to add a custom header based on worksheet cell values, so I've created the variable 'NewHeader'. When I run the code, the header font is HUGE even though I've indicated 12 pt. What have I done wrong? Sub AddNewInvoiceHeader(NewHeader, InvoiceName, ShName) If InvoiceName = "CAM" Then Sheets(ShName).PageSetup.PrintArea = "$E$10:$O$52" Else Sheets(ShName).PageSetup.PrintArea = "$S$10:$AC$52" End If With Sheets(ShName).PageSetup .LeftHeader = "" .CenterHeader = "&""Arial,Bold""&12" & NewHeader .RightHeader = "" .HeaderMargin = Application.InchesToPoints(0.5) .CenterHorizontally = True .CenterVertically = False End With End Sub Here is the code assigning 'NewHeader'L ThisYear = Left(LineItemspg.Range("E13"), 4) If MainPagepg.Range("D6").Value = "Yes" Then InvoiceType = "Reconciliation" Else InvoiceType = "Deposit" End If NewHeader = ThisYear & " " & InvoiceName & " Invoice " & InvoiceType -- Thanks for your help. Karen53 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Custom Header
..CenterHeader = "&""Arial,Bold""&12" & NewHeader
Should be: ..CenterHeader = " &"Arial" &B &12" & NewHeader I assume that NewHeader is a variable for the text. "Karen53" wrote: Hi, I'm trying to add a custom header based on worksheet cell values, so I've created the variable 'NewHeader'. When I run the code, the header font is HUGE even though I've indicated 12 pt. What have I done wrong? Sub AddNewInvoiceHeader(NewHeader, InvoiceName, ShName) If InvoiceName = "CAM" Then Sheets(ShName).PageSetup.PrintArea = "$E$10:$O$52" Else Sheets(ShName).PageSetup.PrintArea = "$S$10:$AC$52" End If With Sheets(ShName).PageSetup .LeftHeader = "" .CenterHeader = "&""Arial,Bold""&12" & NewHeader .RightHeader = "" .HeaderMargin = Application.InchesToPoints(0.5) .CenterHorizontally = True .CenterVertically = False End With End Sub Here is the code assigning 'NewHeader'L ThisYear = Left(LineItemspg.Range("E13"), 4) If MainPagepg.Range("D6").Value = "Yes" Then InvoiceType = "Reconciliation" Else InvoiceType = "Deposit" End If NewHeader = ThisYear & " " & InvoiceName & " Invoice " & InvoiceType -- Thanks for your help. Karen53 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
custom header | New Users to Excel | |||
Can you link a custom property to an Excel custom header text? | Setting up and Configuration of Excel | |||
Excel: custom header - is it possible to paste into header? | Excel Worksheet Functions | |||
Custom Header | Excel Programming | |||
how do I permanetly add custom header to excel header list? | Excel Discussion (Misc queries) |