Buongiorno a tutti.
Ho finalmente trovato questa routine funzionante per ottonere un numero progressivo di fattura:

Option Compare Database

Private Sub Comando4_Click()
If Me![Anno] = Year(Date) Then
Me![N_Fattura] = Me![N_Fattura] + 1
Else
Me![N_Fattura] = 1
Me![Anno] = Year(Date)
End If
End Sub

Questo è l'evento di un pulsante. Vorrei che, invece di funzionare manualmente, mi si avviasse ogni volta che apro il report di stampa oppure inserirlo nel pulsante di stampa che ha il seguente evento

Private Sub Comando14_Click()
On Error GoTo Err_Comando14_Click

Dim stDocName As String

stDocName = "Report Conto NICCHIA RICEVUTA"
DoCmd.OpenReport stDocName, acPreview

Exit_Comando14_Click:
Exit Sub

Err_Comando14_Click:
MsgBox Err.Description
Resume Exit_Comando14_Click

End Sub

Non so come fondere le due istruzioni.

Grazie molte!