Macro per salvare solo l'area di Stampa

Sub SalvaPDF()
    Dim wks1 As Worksheet
    Dim dati As Range
    Dim percorso As String
    Dim nomefile As String
    Set wks1 = Worksheets("D.D.T.")
    Set dati = wks1.Range("B1:P58")
    nomefile = Range("B14").Value
    percorso = ActiveWorkbook.Path & "\"
    dati.ExportAsFixedFormat Type:=xlTypePDF, Filename:=percorso & nomefile, _
    Quality:=xlQualityStandard, OpenAfterPublish:=False
    MsgBox "Copia PDF salvata con successo!", vbInformation, "Avviso di notifica"
    Set wks1 = Nothing
    Set dati = Nothing
End Sub