Possible Print If macro?

[LiAD]

Hi,

Could some one tell me is it possible to have a macro that will print sheets
if there is something written in the selected print area?

Background info:

I have 10 tabs each with two tables, so 20 potential sheets to print.
Sometimes the all 20 sheets will contain info, sometimes maybe only 8.
In every cell of every sheet there are if(cell="";"";index match etc) type
formulas to fill in data from other sources - the reason i say this is that
the cells are not completely empty they may just not display any information.

I can do a macro to print all 20 sheets however there is no point in
printing the empties. Is it possible to have a macro that will print
whatever sheets contain some info? (which tables have at least one entry for
which the if(cell="") is false and therefore returns info.

Thanks
LiAD

 

[Jacob Skaria]

Check the number of blank cells aganist the cells in the range. Something like

If Application.Countblank(Range("E1:E10")) <> 10 then
'Print
End If