Ejercicios con el Evento Workbook BeforePrint de VBA

Este Evento de VBA se va ejecutar antes de que se imprima el libro o cualquiera de sus partes. Recuerda para que pueda ocurrir primero tenemos que presionar el botón imprimir en Excel.

Evento Workbook BeforePrint

Este evento tiene como parámetro opcional/obligatorio el Cancel

Realizar una copia de toda la hoja cuando se imprima

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Sheets("Examen").Copy After:=Sheets(Sheets.Count)
Total=Sheets.Count+1
ActiveSheet.Name ="Backup" & Total

End Sub

Sheets("Examen").Copy After:=Sheets(Sheets.Count)

En la primera Línea vamos a observar este código. Lo primero que realiza es Copiar la Hoja Examen Sheets(«Examen»).Copy después tenemos After:=Sheets(Sheets.Count) Aquí nos pega después de la última hoja, o sea a la derecha de todo, con el mismo nombre, pero con un número mayor y diferente.

Ahora Para cambiar de nombre y poner un número que siempre aumente hacemos lo siguiente:

Total=Sheets.Count+1 este código nos va devolver un número mayor a todo, ahora para concatenar la palabra «Backup» hacemos lo siguiente. Para para cambiar el nombre de la hoja activa más el número Total.

ActiveSheet.Name =»Backup» & Total

Guardar documento al Imprimir

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ThisWorkbook.Save

End Sub

Para poder guardar un documento antes de imprimir un Excel tenemos que acceder al evento BeforePrint del Workbook aquí solo tenemos que poner el método «Save» que significa guardar.
ThisWorkbook.Save

Crea un pie de página antes de imprimir un libro de trabajo

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

End Sub

Nota: El objeto PageSetup contiene todos los atributos de configuración de página (pie de página izquierdo, margen inferior, tamaño de papel, margen izquierdo, etc.) como propiedades.

Tendremos el siguiente resultado: