Attribute VB_Name = "ExportToPdf"
' Exporta la hoja activa a un PDF guardado junto al libro.
Sub ExportActiveSheetToPDF()
    Dim path As String
    If ThisWorkbook.Path = "" Then
        MsgBox "Primero guarda el libro.", vbExclamation
        Exit Sub
    End If
    path = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path, _
        Quality:=xlQualityStandard, OpenAfterPublish:=True
    MsgBox "Guardado: " & path, vbInformation
End Sub