Dim x as Integer
Dim myStr as String
Select Case Me!ReportToPrint
Case 1
For x = 1 to 12
myStr = myStr & "[PaymentsDate] = #" & DateSerial(Year(Date), x, 1) & "# Or "
Next
myStr = Left(myStr, Len(myStr) - 3)
DoCmd.OpenReport "rptDueDatesBySelection", PrintMode, , "[PaymentsDate] = " & myStr
Case 2
For x = 1 to 12
myStr = myStr & "[PaymentsDate] = #" & DateSerial(Year(Date), x, 10) & "# Or "
Next
myStr = Left(myStr, Len(myStr) - 3)
DoCmd.OpenReport "rptDueDatesBySelection", PrintMode, , "[PaymentsDate] = " & myStr
Case 3
For x = 1 to 12
myStr = myStr & "[PaymentsDate] = #" & DateSerial(Year(Date), x, 15) & "# Or "
Next
myStr = Left(myStr, Len(myStr) - 3)
DoCmd.OpenReport "rptDueDatesBySelection", PrintMode, , "[PaymentsDate] = " & myStr
Case 4
For x = 1 to 12
myStr = myStr & "[PaymentsDate] = #" & DateSerial(Year(Date), x, 25) & "# Or "
Next
myStr = Left(myStr, Len(myStr) - 3)
DoCmd.OpenReport "rptDueDatesBySelection", PrintMode, , "[PaymentsDate] = " & myStr
End Select