Sub Macro1()
' Macro Recorded Sun 1/24/10 by WilsonMar@gmail.com
    FilePageSetupHeader Alignment:=pjLeft, Text:="&[View] | &[Report] | &[Filter]File &[File Name and Path]" & Chr$(10) & Chr$(10)
    FilePageSetupHeader Text:="&[Project Title] &[Subject] as of &[Status Date]" & Chr$(10)
    FilePageSetupHeader Alignment:=pjRight, Text:="Resources Not Leveled" & Chr$(10)
    FilePageSetupFooter Alignment:=pjLeft, Text:="Saved &[Saved Date]" & Chr$(10)
    FilePageSetupFooter Alignment:=pjRight, Text:="Page &[Page] of &[Pages]" & Chr$(10)
    FilePrint
End Sub