Hi,

I have a workbook with several worksheets that I let my officemates use.
However, when they are done with their work using my workbook, they cannot
print any of the worksheets so I have to print it for them.

Is there a way that I can let them print based on:
1. Day, say on 8-16-07 or
2. a week, say from 8-20-07 to 8-24?

Please help modify the macro below or help me write a macro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Thank you.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date < VBA.DateSerial(2007,8,16) Then
Cancel = True
End If
End Sub

--

Sincerely,

Ronald R. Dodge, Jr.
Master MOUS 2000

"Danny" wrote in message
...
Hi,

I have a workbook with several worksheets that I let my officemates use.
However, when they are done with their work using my workbook, they cannot
print any of the worksheets so I have to print it for them.

Is there a way that I can let them print based on:
1. Day, say on 8-16-07 or
2. a week, say from 8-20-07 to 8-24?

Please help modify the macro below or help me write a macro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Thank you.

It worked, thanks a lot!
How about #2 for inclusive dates?

"Ronald Dodge" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date < VBA.DateSerial(2007,8,16) Then
Cancel = True
End If
End Sub

--

Sincerely,

Ronald R. Dodge, Jr.
Master MOUS 2000

"Danny" wrote in message
...
Hi,

I have a workbook with several worksheets that I let my officemates use.
However, when they are done with their work using my workbook, they cannot
print any of the worksheets so I have to print it for them.

Is there a way that I can let them print based on:
1. Day, say on 8-16-07 or
2. a week, say from 8-20-07 to 8-24?

Please help modify the macro below or help me write a macro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Thank you.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date < DateSerial(2007,8,20) Or _
Date DateSerial(2007,8,24) Then
Cancel = True
End If
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Danny" wrote in message
...
It worked, thanks a lot!
How about #2 for inclusive dates?

"Ronald Dodge" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date < VBA.DateSerial(2007,8,16) Then
Cancel = True
End If
End Sub

--

Sincerely,

Ronald R. Dodge, Jr.
Master MOUS 2000

"Danny" wrote in message
...
Hi,

I have a workbook with several worksheets that I let my officemates
use.
However, when they are done with their work using my workbook, they
cannot
print any of the worksheets so I have to print it for them.

Is there a way that I can let them print based on:
1. Day, say on 8-16-07 or
2. a week, say from 8-20-07 to 8-24?

Please help modify the macro below or help me write a macro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Thank you.

It worked perfectly! Thanks a lot gentlemen.

"Bob Phillips" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date < DateSerial(2007,8,20) Or _
Date DateSerial(2007,8,24) Then
Cancel = True
End If
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Danny" wrote in message
...
It worked, thanks a lot!
How about #2 for inclusive dates?

"Ronald Dodge" wrote:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Date < VBA.DateSerial(2007,8,16) Then
Cancel = True
End If
End Sub

--

Sincerely,

Ronald R. Dodge, Jr.
Master MOUS 2000

"Danny" wrote in message
...
Hi,

I have a workbook with several worksheets that I let my officemates
use.
However, when they are done with their work using my workbook, they
cannot
print any of the worksheets so I have to print it for them.

Is there a way that I can let them print based on:
1. Day, say on 8-16-07 or
2. a week, say from 8-20-07 to 8-24?

Please help modify the macro below or help me write a macro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

Thank you.