È possibile creare un report di stampa personalizzato aggiungendo una macro VBA a un normale foglio di modulo (la macro può essere scaricata da www.exceltip.com).

Struttura del report di stampa personalizzato:

{vuoto} 2. Colonna A: questa colonna contiene numeri compresi tra 1 e 3: stampa da foglio, stampa per nome intervallo o stampa da visualizzazione personalizzata (consigliato).

  1. Colonna B: digitare il nome del foglio, il nome dell’intervallo o il nome della visualizzazione personalizzata.

  2. Colonna C: digitare il numero di pagina da stampare nel piè di pagina.

La macro verrà stampata da un foglio e aggiungerà automaticamente le informazioni necessarie al piè di pagina, inclusi il numero di pagina, il nome della cartella di lavoro, l’indirizzo del percorso e il nome del foglio, nonché la data e l’ora di stampa.

Sub PrintReports ()

Dim NumberPages As Integer, PageNumber As Integer, i As Integer Dim ActiveSh As Worksheet, ChooseShNameView As String Dim ShNameView As String, cell As Range Application.ScreenUpdating = False Imposta ActiveSh = ActiveSheet Range (“a2”). Seleziona per ogni cella nell’intervallo (Intervallo (“a2”), Intervallo (“a2”). Fine (xlDown))

Seleziona 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”

Fine con ActiveWindow.SelectedSheets.PrintOut Copie: = 1 Avanti i ActiveSh.Select Application.ScreenUpdating = True End Sub {vuoto} 5. Il ciclo For Each nella macro causa una stampa separata per ogni cella nella colonna A a partire da A2.

  1. Nel loop, l’area di stampa viene selezionata utilizzando la tecnica Select Case.

  2. Le informazioni stampate sul lato sinistro del piè di pagina: & 08 = carattere a 8 punti, & D = Data, & T = Ora.

  3. Per eseguire la macro dal foglio, premere Alt + F8, selezionare la macro e fare clic su Esegui.

OPPURE Aggiungere un pulsante al foglio e allegarvi la macro.

  1. Nota: utilizzare questa tecnica per aggiungere un numero illimitato di report.

Screenshot // Creazione di un gestore rapporti personalizzato