Вы можете использовать приведенный ниже код, чтобы определить путь к месту назначения и распечатать PDF, не запрашивая диалоговое окно печати и некоторые основные настройки страницы.
'Export as PDF
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
destinationPath & destinationFilename & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Атрибуция: Другой ответ Stackoverflow