Select Printing Macro

[saltnsnails]

I have a workbook that contains about 60 timesheets on individual worksheets.
Not all of the worksheets have data filled in if a particular individial
does not work on that day. I print timesheets at the end of each day. What
I would like to do is run a macro that would print only the worksheets if the
date cell has the current date in it. The date cell is B1. I hope this
makes sense.

 

[Jim Thomlinson]

Something like this should be close.

Sub PrintUsedSheets()
Dim wks As Worksheet

For Each wks In Worksheets
If wks.Range("B1").Value = Date Then wks.PrintOut
Next wks
End Sub

 

[saltnsnails]

Jim,
Thanks for the reply. I added the macro and nothing happened when I ran it.
not sure what to do. Any other thoughts?

-
-CRM

 

[Jim Thomlinson]

Is your value in Cell B1 and actual date or is it text? To check in some
other cell add
=B1 + 1
which should return the next day if your cell is a true date and not just
text. True dates can also be reformatted.

The other possibility is that your date is actually a date and time strung
together. Try reformatting the date using one of the built in date/time
formats. If the time is anything other than 12AM then you have a date and
time in the cell.

Let me know the results... If it is text then give me an example of the cell
value.

 

[saltnsnails]

Jim,
Would it be plausible to rewrite the macro so that if cell B1 is greater
than 0, then print?

 

[Jim Thomlinson]

Try this
If wks.Range("B1").Value > 0 Then wks.PrintOut
or
If trim(wks.Range("B1").Value) <> "" Then wks.PrintOut

 

[saltnsnails]

That did it!!! Thanks Jim!
--
-CRM

Try this
If wks.Range("B1").Value > 0 Then wks.PrintOut
or
If trim(wks.Range("B1").Value) <> "" Then wks.PrintOut