aşağıdaki kodu dener misiniz?

Function Exceli_PDF_Yap(xlFileName As String, SavePDF As String)

Dim objXl As Object



Const xlTypePDF = 0

Const xlQualityStandard = 0



Set objXl = CreateObject("Excel.Application")



With objXl

    .Workbooks.Open (xlFileName)

      

    .ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

        "" & SavePDF & "", quality:=xlQualityStandard, _

        includedocproperties:=True, ignoreprintareas:=False, openafterpublish:= _

        True

    .Quit

End With

    

End Function

kodu şu şekilde çağırabilirsiniz
Exceli_PDF_Yap "D:\Desktop\Eğitim\DosyaAdı.xlsm","D:\Desktop\Eğitim\PdfAdı.pdf"