Excel VBA ExportAsFixedFormat转换为PDF，用于范围和更改输出显示

我有以下代码，可将我所需的范围输出到PDF文件，并将其正确地匹配到一个纵向页面：

 With ActiveSheet.PageSetup
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

rng.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=fSName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

然而，在我的PDF文件中，左侧有行字母，标题上方有一个额外的空白栏，如下所示：

我怎样才能摆脱这些？我不希望显示它们，它们仅在我添加此部分后出现：

 With ActiveSheet.PageSetup
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

你需要设置

ActiveSheet.PageSetup.PrintHeadings = False

删除这些列标题和行标题

---

With ActiveSheet.PageSetup
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .PrintHeadings = False
End With