Sub BotonPDF()
Dim CeldaNombre As Range
Dim NombreArchivo As String
Dim RutaArchivo As String
Set CeldaNombre = Hoja1.Range("A11")
If CeldaNombre.Value = "" Then
NombreArchivo = Format(Now, "ddmmyyyy_hhmmss") & ".pdf"
Else
NombreArchivo = Mid(CeldaNombre.Value, 1, InStr(1, CeldaNombre.Value, " ", vbTextCompare) - 1) & _
"_" & Format(Now, "ddmmyyyy_hhmmss") & ".pdf"
End If
RutaArchivo = Application.ActiveWorkbook.Path & _
Application.PathSeparator & _
NombreArchivo
'---
Application.ScreenUpdating = False
Dim NumeroDeFilasDeLaTabla As Long
NumeroDeFilasDeLaTabla = Hoja1.ListObjects("Cotizacion").DataBodyRange.Rows.Count
Hoja1.Cells(18 + NumeroDeFilasDeLaTabla + 2, 1).Value = "ECHO POR JOSE LUIS BEREA "
Hoja1.Cells(18 + NumeroDeFilasDeLaTabla + 2, 1).Font.Color = RGB(0, 0, 255)
'---
Hoja1.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=RutaArchivo, _
Quality:=xlQualityStandard, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Hoja1.Cells(18 + NumeroDeFilasDeLaTabla + 2, 1).Value = ""
Hoja1.Cells(18 + NumeroDeFilasDeLaTabla + 2, 1).Font.ColorIndex = xlColorIndexAutomatic
Application.ScreenUpdating = True
Hoja1.Range("A4").Select
End Sub
USA ESTE