This does not answer your specifics, but for Builtin properties:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
s = ActiveWorkbook.BuiltinDocumentProperties("author")
ActiveSheet.PageSetup.CenterHeader = s
End Sub

in ThisWorkbook code, not a standard module. Can be adapted for Custom.
--
Gary's Student


"IMFletch" wrote:

Is there a way to include file properties in a custom header?

For example, I've defined a custom file property, "Property Name", would
like the user to enter that value when opening the workbook, and have
whatever is entered displayed in the heading when printing.