lunes, 29 de febrero de 2016

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