Generar PDF de hoja al elegirla desde un listbox
Tengo un formulario en que me gustaria tener un listbox de todas las hojas del documento y poder generar un pdf de la hoja seleccionada al apretar un CommandButton.
Lo ideal seria que respete el formato de la hoja a generar.
Respuesta de Programar Excel
1
Quizás te sirva estos ejemplos
http://www.programarexcel.com/2013/05/crea-carpetas-y-guarda-archivo-con.html
http://www.programarexcel.com/2015/04/macro-excel-envia-mail-adjuntando-pdf.html
En el último ejemplo crea una archivo PDF usa solo esa parte del código
1 respuesta más de otro experto
Respuesta de Adriel Ortiz Mangia
1
H o l a:
Te paso la macro:
Para generar el PDF, cambia el nombre del listbox por el tuyo
Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h = Sheets(ListBox1.ListIndex) Application.ScreenUpdating = False Application.DisplayAlerts = False Ruta = ThisWorkbook.Path & "\" nomb = h.Name h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "Se ha guardado la hoja en PDF", vbInformation Unload Me End Sub
Esto para listar las hojas en el listbox
Private Sub UserForm_Activate() For Each h In Sheets ListBox1.AddItem h.Name Next End Sub
Valora la respuesta Excelente o bueno para finalizar saludos!