Code:
Private Sub PrintPDF_Click()
Dim strCriteria As String
strCriteria = Trim$(Me![SearchQSubform].[Form].[Filter] & "")
If Len(strCriteria) Then
strCriteria = Replace$(Replace$(strCriteria, "[SearchQSubform].", ""), "SearchQSubform.",
Leave a comment: