please try these
Try first approach
Alternately…go with vba
Sub ExportToPDFAndFitToPage()
Dim ws As Worksheet
Dim filePath As String
Set ws = ThisWorkbook.ActiveSheet
filePath = "C:\path\to\your\file.pdf" ' Replace with your desired file path
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, _
From:=1, To:=1, OpenAfterPublish:=True
End Sub
cheers