Guardar Excel en pdf con nombre de Combobox
De nuevo con una consulta, tengo este código
Este código busca información de personal y la muestra en unos textbox incluidos una fotografía, lo que necesito es una macro que me guarde en pdf tomando como nombre de archivo el nombre que se selecciona del combobox que se llama cmbNombres, el rango que necesito guardar es de A1:M52
1 respuesta
Respuesta de Dante Amor
2
Pon el siguiente código en un botón:
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Guarda rango en un Pdf
If cmbNombres = "" Or cmbNombres.ListIndex = -1 Then
MsgBox "Selecciona un nombre"
Exit Sub
End If
Application.DisplayAlerts = False
ruta = ThisWorkbook.Path & "\"
Sheets("Sheet1").Range("A1:M52").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & cmbNombres.Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Pdf guardado"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
