Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting separate lines of header
I have the following code to set the worksheet headers. All lines in the
header are printing in the set font size FS but I want to have a different font size for each variable/line of the header. Any help would be much appreciated. ts1 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet Dim CoName As String Dim EffDate As String Dim InsType As String CoName = Range("Sheet1!b2").Value EffDate = Range("Sheet1!b4").Value InsType = "My Text String" FS = 22 For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.CenterHeader = "&""Arial,Bold""&" & FS & Chr(10) & CoName & Chr(10) & InsType & Chr(10) & EffDate Next wkSht End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting separate lines of header
Easiest and most specific solution is to
Turn on the macro recorder and set it up manually. Then turn the macro recorder off and look at the code. It will show you that you just embed more "Font" commands within the test string. -- Regards, Tom Ogilvy "ts1" wrote in message ... I have the following code to set the worksheet headers. All lines in the header are printing in the set font size FS but I want to have a different font size for each variable/line of the header. Any help would be much appreciated. ts1 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet Dim CoName As String Dim EffDate As String Dim InsType As String CoName = Range("Sheet1!b2").Value EffDate = Range("Sheet1!b4").Value InsType = "My Text String" FS = 22 For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.CenterHeader = "&""Arial,Bold""&" & FS & Chr(10) & CoName & Chr(10) & InsType & Chr(10) & EffDate Next wkSht End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting separate lines of header
Tom,
Thanks for the direction. I did that whwien setting the header to simple text strings but am still having problem with font commands preceding variables which are being set in the code from values in one of the worksheets. ts1 "Tom Ogilvy" wrote: Easiest and most specific solution is to Turn on the macro recorder and set it up manually. Then turn the macro recorder off and look at the code. It will show you that you just embed more "Font" commands within the test string. -- Regards, Tom Ogilvy "ts1" wrote in message ... I have the following code to set the worksheet headers. All lines in the header are printing in the set font size FS but I want to have a different font size for each variable/line of the header. Any help would be much appreciated. ts1 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet Dim CoName As String Dim EffDate As String Dim InsType As String CoName = Range("Sheet1!b2").Value EffDate = Range("Sheet1!b4").Value InsType = "My Text String" FS = 22 For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.CenterHeader = "&""Arial,Bold""&" & FS & Chr(10) & CoName & Chr(10) & InsType & Chr(10) & EffDate Next wkSht End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting separate lines of header
You can test your results in the Immediate window in the VBE (under the View
menu if you don't have it visible) ? "abc """ & Range("B9").Value & """ efg" <cr for example. Make work with your strings until you get the desired result. Obviously the use of the & as a delimiter in the page formatting string makes it confusing when you are concatenating. -- Regards, Tom Ogilvy "ts1" wrote in message ... Tom, Thanks for the direction. I did that whwien setting the header to simple text strings but am still having problem with font commands preceding variables which are being set in the code from values in one of the worksheets. ts1 "Tom Ogilvy" wrote: Easiest and most specific solution is to Turn on the macro recorder and set it up manually. Then turn the macro recorder off and look at the code. It will show you that you just embed more "Font" commands within the test string. -- Regards, Tom Ogilvy "ts1" wrote in message ... I have the following code to set the worksheet headers. All lines in the header are printing in the set font size FS but I want to have a different font size for each variable/line of the header. Any help would be much appreciated. ts1 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wkSht As Worksheet Dim CoName As String Dim EffDate As String Dim InsType As String CoName = Range("Sheet1!b2").Value EffDate = Range("Sheet1!b4").Value InsType = "My Text String" FS = 22 For Each wkSht In ThisWorkbook.Worksheets wkSht.PageSetup.CenterHeader = "&""Arial,Bold""&" & FS & Chr(10) & CoName & Chr(10) & InsType & Chr(10) & EffDate Next wkSht End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
separate lines in excel | Excel Discussion (Misc queries) | |||
how to merge 2 cells and have them on 2 separate lines in a cell | Excel Discussion (Misc queries) | |||
Separate lines in Excel cell | Excel Worksheet Functions | |||
Separate Groups by Inserting Lines | Excel Discussion (Misc queries) | |||
Formatting text in a textbox to show separate lines | Excel Programming |