'Print Selected Sheets to PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & fName, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True