Dim strFilter As String
'Initialize the clause.
strFilter = ""
'If the Paper Size is specified
If Me.cboPaperSize & "" > "" Then
strFilter = strFilter & " AND [PaperSizeID] = " & Me.cboPaperSize
'If the Printer is specified
If Me.cboPrinter & "" > "" Then
strFilter = strFilter & " AND [Printer] =" & Me.cboPrinter
This example only has two fields. For your example you would want to continue adding three more fields. Also, the names of the fields need to be changed for your situation.