Print worksheet to PDF VBA

Using this code at the bottom of my macro to export certain sheets as PDF. Working well but I am looking to add 2 things:
1. Is there anyway I can add Page #'s to the PDF upon export.
2. Looking to not open the PDF after it runs

    ThisWorkbook.Sheets(Array("Summary", "Res", "Det", "Apt", "Row", "Semi", "HPI Summary")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "s:\Location\443.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

    
    Windows("443.xlsm").Activate
    'ActiveWindow.Close