Reporte con filtro

Para conseguir filtrar la información del informe que vas ha imprimir, te recomiendo dos opciones:
1º) En la consulta origen del informe, incluye un parámetro de tipo fecha como criterio del campo por el que quieras filtrar. Con esto conseguirás que cada vez que se imprima el informe, te pida la fecha.
Para hacerlo, sigue estos pasos:
- En la ficha de datos de las propiedades del informe, pulsa en el botón ... para editar la consulta origen del informe.
- En cualquier espacio libre del área de la ventana de la consulta, pulsa con el botón derecho del ratón y selecciona parámetros.
- Introduce un nombre para identificar al parámetro y establece Fecha/Hora como tipo de datos.
- En la fila criterios del campo fecha que quieras condicionar, escribe el nombre del parámetro encerrado entre corchetes [].
- Cada vez que se imprima el informe, Access nos mostrará una ventana que nos pedirá el valor de la fecha que utilizará como parámetro.
2º) Poner un botón de comando en el formulario que nos permita imprimir el informe.
- En el evento que nos haya generado el botón, aparecerán unas líneas de comando como:
-----------------------------
Dim stDocName As String
stDocName = "NombreInforme"
DoCmd. OpenReport stDocName, acPreview
-----------------------------
- Antes de ejecutar la orden docmd. Openreport, solicitamos la fecha con la instrucción inputbox y a continuación utilizamos esa fecha como CondicionWhere de la orden docmd. Openreport.
Ej:
------------------------------
Dim stDocName As String
Dim FECHAFILTRO As Date
stDocName = "NombreInforme"
FECHAFILTRO = InputBox("Introduce fecha de ingreso (dd/mm/aaaa):", , Format(Date, "dd/mm/yyyy"))
DoCmd.OpenReport stDocName, acPreview, , "NombreCampoFecha= #" & Format(FECHAFILTRO,"mm/dd/yy") & "#"
-------------------------------
- Ahora si lo que deseas es que la fecha se encuentre en un intervalo determinado, lo haríamos de la siguiente manera:
------------------------------
Dim stDocName As String
Dim FECHAFILTRO_desde As Date
Dim FECHAFILTRO_hasta As Date
stDocName = "NombreInforme"
FECHAFILTRO_desde = InputBox("Introduce desde fecha de ingreso (dd/mm/aaaa):", , Format(Date, "dd/mm/yyyy"))
FECHAFILTRO_hasta = InputBox("Introduce hasta fecha de ingreso (dd/mm/aaaa):", , Format(Date, "dd/mm/yyyy"))
DoCmd.OpenReport stDocName, acPreview, , "NombreCampoFecha BETWEEN #" & Format(FECHAFILTRO_desde,"mm/dd/yy") & "# AND #"& Format(FECHAFILTRO_hasta,"mm/dd/yy") & "#"
-------------------------------