Sub Guardar()
'Guarda una copia de la tabla de amortización en el disco duro como evidencia
    If Not DirExists(ThisWorkbook.Path & "\Evidencias") Then
    MkDir (ThisWorkbook.Path & "\Evidencias")
    End If
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & _
    "Evidencias\" & "Evaluation-" & Range("C12").Value & "-" & Range("C13").Value, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.ScreenUpdating = False
    
    Application.Dialogs(xlDialogPrint).Show
    
End Sub

'Función que ayuda a revisar si existe un directorio y si no regresa una bandera VERDADERA que permitirá crearlo
Function DirExists(DirName As String) As Boolean
On Error GoTo ErrorHandler
DirExists = GetAttr(DirName) And vbDirectory
ErrorHandler:
End Function