Sub Print_Custom_Props()
With ActiveSheet
j = ThisWorkbook.CustomDocumentProperties("Client").Value
n = ThisWorkbook.CustomDocumentProperties("Editor").Value
ActiveSheet.PageSetup.RightHeader = "Client Name " & j
ActiveSheet.PageSetup.LeftHeader = "Editor " & n
End With
ActiveSheet.PrintPreview
End Sub
Gord Dibben MS Excel MVP
On Wed, 2 Apr 2008 11:19:01 -0700, Ade Hodgetts
<(E-Mail Removed)> wrote:
>Can I add Custom File Properties into Header and Footer information. eg
>&[Tab] but I need to add client info, etc that comes from Templates I have
>set
|