VBA ExportAsFixedFormat到PDF的範圍和輸出

Question

的變化顯示我有下面的代碼，我希望的範圍內輸出爲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 

Answer 1

您需要設置

ActiveSheet.PageSetup.PrintHeadings = False 

擺脫這些行和列標題。

---

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