Как напечатать книгу Excel в PDF, установив Fit Sheet On One Page через Excel VBA

Question

Я создал код, который позволяет пользователю печатать книгу Excel в PDF с параметрами настройки страницы в vba.

Но когда мне нужно скопировать комментарий из другого файла PDF, напечатанного вручную, в файл PDF, напечатанный VBA, или создать новый комментарий, он отображает очень маленький комментарий с крошечными шрифтами. Я надеюсь, что эта проблема вызвана не печатью 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