Print report based on criteria
 

Hi all,
I need to print a report on the work day (Monday through Friday) that is
closest to the 15th of the month. Which means that in April I would print
in on the 13th, May is Tuesday, 15th, June Friday 15, etc. The VBA program
that controls this report also controls others that are run everyday.

How can I code this, probably by setting a variable called PrintReport to
true on the right day.

Any thoughts would be appreciated.

Print report based on criteria
 

Some logic such as shown in this Sub should do it for you.

Sub MidMonthCheck()
Dim MidMonthReportFlag As Boolean

MidMonthReportFlag = False
If Day(Now) = 15 And _
Weekday(Now) < vbSaturday And _
Weekday(Now) < vbSunday Then
'set flag TRUE
'it is 15th and it
'is a weekday
MidMonthReportFlag = True
ElseIf Day(Now) 12 And _
Day(Now) < 15 And Weekday(Now) = vbFriday Then
'set flag TRUE
'it is either 13th, or 14th
'and it's a Friday (with 15th on weekend)
MidMonthReportFlag = True
End If

End Sub


"Rich Mogy" wrote:

Hi all,
I need to print a report on the work day (Monday through Friday) that is
closest to the 15th of the month. Which means that in April I would print
in on the 13th, May is Tuesday, 15th, June Friday 15, etc. The VBA program
that controls this report also controls others that are run everyday.

How can I code this, probably by setting a variable called PrintReport to
true on the right day.

Any thoughts would be appreciated.

Print report based on criteria
 

That appears to be exactly what I need. I'll test and get back to you.
Thanks.
"JLatham" <HelpFrom @ Jlathamsite.com.(removethis) wrote in message
...
Some logic such as shown in this Sub should do it for you.

Sub MidMonthCheck()
Dim MidMonthReportFlag As Boolean

MidMonthReportFlag = False
If Day(Now) = 15 And _
Weekday(Now) < vbSaturday And _
Weekday(Now) < vbSunday Then
'set flag TRUE
'it is 15th and it
'is a weekday
MidMonthReportFlag = True
ElseIf Day(Now) 12 And _
Day(Now) < 15 And Weekday(Now) = vbFriday Then
'set flag TRUE
'it is either 13th, or 14th
'and it's a Friday (with 15th on weekend)
MidMonthReportFlag = True
End If

End Sub


"Rich Mogy" wrote:

Hi all,
I need to print a report on the work day (Monday through Friday) that is
closest to the 15th of the month. Which means that in April I would
print
in on the 13th, May is Tuesday, 15th, June Friday 15, etc. The VBA
program
that controls this report also controls others that are run everyday.

How can I code this, probably by setting a variable called PrintReport to
true on the right day.

Any thoughts would be appreciated.