Report con linee a colori alternati

Questa funzione serve per stampare a colori alternati le linee del corpo di un report di Microsoft Access (effetto “zebrato”), e risulta essere molto utile per aumentare la leggibilità dei report.
La funzione deve essere associata all’evento “Su stampa” della sezione “corpo” del report.

Codice

Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)

    ' funzione per creare un effetto di linee a colori alterni in fase
    ' di stampa del Report (Effetto zebrato)
    
    Static linea As Boolean
    If linea Then
        Me.Corpo.BackColor = 8454143        ' giallo chiaro
    Else
        Me.Corpo.BackColor = 16777215       ' bianco (trasparente)
    End If
    linea = Not linea

End Sub

Utilizzo

1. Aprire il report di Microsoft Access in modalità “struttura”
2. Doppio clic sulla sezione “corpo”: si apre la finestra delle proprietà della sezione “corpo”
3. Nella scheda “Evento”, in corrispondenza dell’evento “Su stampa”, premere il pulsante “…”
4. Scegliere “Generatore di codice” e quindi “Ok”
5. Si apre l’editor di VBA e viene creata una sub “Corpo_Print” dove è possibile incollare la funzione

Ecco il risultato: