Try this
Rng.ExportAsFixedFormat(Type:=xlTypePDF, _ 
    FileName:=FileName, _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True)