Custom Document Properties
In my latest project, there was a need to use a number of status items over and over but we did not want them to appear visible on the worksheet.To achieve these ends, we hold the items in the CustomDocumentProperties and pull them out as needed. Our spreadsheets are created from a master template and the Properties must be defined in the template before they can be used.
ThisWorkbook.CustomDocumentProperties("ActMonth") = ForecastMon
BUKRS = ThisWorkbook.CustomDocumentProperties("BUKRS")
Do While Mid(InputRow, 10, 4) = BUKRS
PRINTING:
.LeftHeader = "&""Arial,Bold""&12" & ThisWorkbook.CustomDocumentProperties("CompanyNm") _
& Chr(10) & ThisWorkbook.CustomDocumentProperties("FileType") _
& Chr(10) & TheAccount _
& Chr(10) & "Budget Fiscal Year " & ThisWorkbook.CustomDocumentProperties("FiscalYear")
.RightHeader = "&""Arial,Bold""&12" & VersType
.CenterFooter = ThisWorkbook.CustomDocumentProperties("FileType") & " Support" _
& Chr(10) & TheAccount
.LeftFooter = "&D"
|