Save document as PDF macro

Hi I have the following code,

I am trying to save the print area of only one page of my workbook, as a pdf with the file name as K3 & save it in a specified folder, It just isnt working as it's saving it as a excel macro enabled workbook. Can anyone help?

Sub SAVEPDF()
'
' SAVEPDF Macro
'
     
    Dim FName           As String
    Dim FPath           As String
    Dim username As String
    username = Environ$("username")
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF
    FPath = "C:\Users\" & username & "\Dropbox\Quotations To Be Emailed"
    FName = ActiveWorkbook.ActiveSheet.Range("k3").Text
    ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
     
End Sub