Puede crear informes de impresión personalizados agregando una macro VBA a una hoja de módulo normal (la macro se puede descargar de www.exceltip.com).
Estructura del informe de impresión personalizado:
2. Columna A: esta columna contiene números entre 1 y 3: imprima desde la hoja, imprima por nombre de rango o imprima desde Vista personalizada (recomendado).
3. Columna B: escriba el nombre de la hoja, el nombre del rango o el nombre de la vista personalizada.
4. Columna C: Escriba el número de página que se imprimirá en el pie de página.
La macro se imprimirá desde una hoja y agregará automáticamente la información necesaria al pie de página, incluido el número de página, el nombre del libro de trabajo, la dirección de la ruta y el nombre de la hoja, así como la fecha y hora de impresión.
Sub PrintReports ()
Dim NumberPages como entero, PageNumber como entero, i como entero
Atenuar ActiveSh como hoja de trabajo, ChooseShNameView como cadena
Dim ShNameView como cadena, celda como rango
Application.ScreenUpdating = Falso
Establecer ActiveSh = ActiveSheet
Rango ("a2"). Seleccionar
Para cada celda en el rango (rango ("a2"), rango ("a2"). Fin (xlDown))
Seleccione la celda de caso.
Caso 1
Hojas (ShNameView) .Seleccionar
Caso 2
Application.GoTo Reference: = ShNameView
Caso 3
ActiveWorkbook.CustomViews (ShNameView) .Show
Finalizar Seleccionar
Con ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Terminar con
ActiveWindow.SelectedSheets.PrintOut Copias: = 1
Siguiente yo
ActiveSh.Select
Application.ScreenUpdating = True
End Sub
5. El bucle For Each de la macro provoca una impresión separada para cada celda de la columna A que comienza en A2.
6. En el bucle, el área de impresión se selecciona mediante la técnica Seleccionar caso.
7. La información impresa en el lado izquierdo del pie de página: & 08 = fuente de 8 puntos, & D = Fecha, & T = Hora.
8. Para ejecutar la macro desde la hoja, presione Alt + F8, seleccione la macro y haga clic en Ejecutar.
O
Agregue un botón a la hoja y adjunte la macro.
9. Nota: Utilice esta técnica para agregar un número ilimitado de informes.
Captura de pantalla // Creación de un administrador de informes personalizados
