如何通过Excel VBA在一页上设置Fit Sheet将Excel工作簿打印为PDF

Question

我创建了一个代码，使用户可以通过vba中的页面设置选项将excel工作簿打印为PDF。

但是当我需要将注释从另一个手动打印的PDF文件复制到VBA打印的PDF文件或创建新注释时，它会向我显示一个很小的带有小字体的注释。我希望此问题是由于未打印PDF引起的文件“一页上的健身表”

我该如何解决？

'Code continues from here'

filename=Left$(Activeworkbook.Name,InStrRev(Activeworkbook.Name,".",-1,vbBinaryCompare)-1) & ".pdf"
Application.PrintCommunication=False

With Activesheet.Pagesetup
      .Orientation=XlLandscape
      .Zoom=False
      .FitToPagesWide=1
      .FitToPagesTall=False
End With
Application.PrintCommunication=true

Activesheet.ExportAsFixedFormat _
     Type:=xlTypePDF, _
     filename:=FolderPath & filename, _
     Quality:=xlQualityStandard, _
     IncludeDocProperties:=False, _
     IgnorePrintAreas:=False, _
     OpenAfterPublish:=true, _

End Sub