Private Sub btnStampaReport_Click()
Dim strReportName As String
Dim strWhereClause As String
' Imposta il nome del report che desideri aprire
strReportName = "NomeDelTuoReport"
' Costruisci il criterio WHERE per filtrare il report
strWhereClause = "[ID_Anag] = " & Me.cmbFiltro.Value
' Apri il report passando il criterio WHERE
DoCmd.OpenReport strReportName, acViewPreview, , strWhereClause
End Sub