Creazione di un gestore rapporto personalizzato
È 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).
-
Colonna B: digitare il nome del foglio, il nome dell’intervallo o il nome della visualizzazione personalizzata.
-
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.
-
Nel loop, l’area di stampa viene selezionata utilizzando la tecnica Select Case.
-
Le informazioni stampate sul lato sinistro del piè di pagina: & 08 = carattere a 8 punti, & D = Data, & T = Ora.
-
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.
-
Nota: utilizzare questa tecnica per aggiungere un numero illimitato di report.