È possibile creare report di stampa personalizzati aggiungendo una macro VBA a un normale foglio del modulo (la macro può essere scaricata da www.exceltip.com).
Struttura del report di stampa personalizzata:
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).
3. Colonna B: digitare il nome del foglio, il nome dell'intervallo o il nome della vista personalizzata.
4. Colonna C: Digitare il numero di pagina da stampare nel piè di pagina.
La macro stamperà 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.
Rapporti di stampa secondari()
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
Intervallo("a2").Seleziona
Per ogni cella In Range(Range("a2"), Range("a2").End(xlDown))
Seleziona Case cell.Value
Caso 1
Fogli(ShNameView).Seleziona
Caso 2
Riferimento Application.GoTo:=ShNameView
Caso 3
ActiveWorkbook.CustomViews(ShNameView).Show
Fine selezione
Con ActiveSheet.PageSetup
. CenterFooter.NumeroPagina
.LeftFooter = ActiveWorkbook.FullName & " " & "&A &T &D"
Termina con
ActiveWindow.SelectedSheets.PrintOut Copie:=1
Avanti io
ActiveSh.Select
Application.ScreenUpdating = True
Fine sottotitolo
5. Il ciclo For Each nella macro provoca una stampa separata per ogni cella nella colonna A a partire da A2.
6. Nel loop, l'area di stampa viene selezionata utilizzando la tecnica Select Case.
7. Le informazioni stampate sul lato sinistro del piè di pagina: &08 = carattere a 8 punti, &D = Data, &T = Ora.
8. Per eseguire la macro dal foglio, premere Alt+F8, selezionare la macro e fare clic su Esegui.
O
Aggiungi un pulsante al foglio e allega la macro ad esso.
9. Nota: utilizzare questa tecnica per aggiungere un numero illimitato di report.
Schermata // Creazione di un gestore di rapporti personalizzato