Cómo Generar un reporte en PDF (con filtro)

Primero definir una variable en el módulo para almacenar el filtro:

Public filtro_pdf_aesel As String

Utilizar el siguiente código para generar el reporte

filtro_pdf_aesel = "[ID]=" & Me("ID") & " AND [Tipo]='V'"

DoCmd.OutputTo acOutputReport, "Extraccion_Ensayo", acFormatPDF, archivo, True

En el evento OPEN y CLOSE del reporte

Private Sub Report_Open(Cancel As Integer)

    If Len(filtro_pdf_aesel) <> 0 Then

         Me.Filter = filtro_pdf_aesel

         Me.FilterOn = True

    End If

End Sub

Private Sub Report_Close()

    filtro_pdf_aesel = vbNullString

End Sub