Puede crear informes de impresión personalizados agregando una macro de VBA a una hoja de módulo normal (la macro se puede descargar de www.exceltip.com).

Estructura del informe de impresión personalizado:

{vacío} 2. Columna A: esta columna contiene números entre 1 y 3: imprimir desde la hoja, imprimir por nombre de rango o imprimir desde Vista personalizada (recomendado).

  1. Columna B: escriba el nombre de la hoja, el nombre del rango o el nombre de la vista personalizada.

  2. 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 ()

Atenuar 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 = False Establecer ActiveSh = ActiveSheet Rango («a2»). Seleccionar para cada celda del rango (Rango («a2»), Rango («a2»). Fin (xlDown))

Seleccione Case cell.Value Case 1 Sheets (ShNameView) .Select Case 2 Application.GoTo Reference: = ShNameView Case 3 ActiveWorkbook.CustomViews (ShNameView) .Show End Select With ActiveSheet.PageSetup. CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName & «» & «& A & T & D»

Finalizar con ActiveWindow.SelectedSheets.PrintOut Copias: = 1 Siguiente i ActiveSh.Select Application.ScreenUpdating = True End Sub {vacío} 5. El bucle For Each de la macro provoca una impresión separada para cada celda de la columna A que comienza en A2.

  1. En el bucle, el área de impresión se selecciona mediante la técnica Seleccionar caso.

  2. La información impresa en el lado izquierdo del pie de página: & 08 = fuente de 8 puntos, & D = Fecha, & T = Hora.

  3. 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.

  1. Nota: Utilice esta técnica para agregar un número ilimitado de informes.

Captura de pantalla // Creación de un administrador de informes personalizados