Печать pdf из excel-листа - VBA

Формулировка задачи:

Добрый день! На компьютере установлен пакет программ adobe, и в списке устройств имеется принтер adobe pdf, он установлен как принтер по умолчанию. Имеется код макроса:

Sub pe4at()
 
ThisWorkbook.Worksheets("Лист1").PrintOut , printtofile:=True, prtofilename:=ThisWorkbook.Worksheets("Лист1").Name & ".pdf"
 
End Sub

Создается .pdf Файл, но не открывается ни одной из подходящих для чтения pdf программ. Если использовать следующий код:

Sub pe4at()
 
ThisWorkbook.Worksheets("Лист1").PrintOut
', printtofile:=True, prtofilename:=ThisWorkbook.Worksheets("Лист1").Name & ".pdf"
 
End Sub

, то появляется диалоговое окно сохранения файла, и при указании пути назначения и имени файла, формируется корректный .pdf-файл. В чём разница между двумя данными методами, и как обойти проблему формирования битого файла при использовании первого варианта макроса?

Решение задачи: «Печать pdf из excel-листа»

textual
                            Листинг программы 
                        

                            Sub Макрос2()
    Лист1.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF (Ne02:)", _
        PrintToFile:=True, PrToFileName:="D:\Users\ANTON-SF\Desktop\TEST.PDF"
End Sub
                        