Ver en vista previa o preliminar 8 pestañas u hojas de excel con macros
¿Cómo estas? Consulta, ¿existe una posibilidad de crear 2 botones de comando el primer botón quisiera que me muestre una vista preliminar de 8 hojas en excel apretando un botón de comando? Y el otro botón que me exporte en pdf las 8 hojas de una vez según el orden en que este en las hojas, ejemplo si dice hoja1, hoja2, hoja3, hoja4, hoja5, hoja6, hoja7 y hoja8
1 Respuesta
Respuesta de Dante Amor
2
Te anexo el código para los 2 botones:
Sub VistaPrevia()
Sheets(Array("hoja1", "hoja2", "hoja3", "hoja4", "hoja5", "hoja6", "hoja7", "hoja8")).PrintPreview
End Sub
'
Sub ExportaPdf()
Sheets(Array("hoja1", "hoja2", "hoja3", "hoja4", "hoja5", "hoja6", "hoja7", "hoja8")).Select
ActiveSheet. ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\archivo.pdf", 0, True, False,,, False
End Sub
