Does this work for you?

Sub Save_PDF()
     Dim invno As Long
     Dim custname As String
     Dim Amt As Currency
     Dim dt_issue As Date
     Dim Path As String
     Dim fname As String
     Dim dt_bill As Date
     Dim formattedDate As String   
     ' Get values from specified cells
     invno = Range("c20").Value
     custname = Range("c1").Value
     Amt = Range("n48").Value
     dt_issue = Range("d20").Value
     dt_bill = Range("n20").Value   
     ' Specify the path to save the PDF
     Path = "Q:\Finance\Accounts\Finance\"   
     ' Format the date for the file name
     formattedDate = Format(dt_bill, "yyyy-mm-dd") ' Use a file-safe format
     fname = formattedDate & " " & custname & " " & invno & ".pdf"  
     ' Export the active sheet as a PDF to the specified path
     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
         Filename:=Path & fname, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=False
    MsgBox "PDF saved as: " & vbCrLf & fname
    ' Optionally use Debug.Print to see the full path in the Immediate Window
    Debug.Print "PDF saved successfully at: " & Path & fname
End Sub