Macro to Print Selected Sheet

[santoshsapre]

Hi,


I have around 25 sheets in the workbook. inpute data start in every sheet from A7 but there is some sheet wherein no data. i want to print all sheet only if there is data in A7

currently i am clg+select sheet with data available and then print.


is there any solution thru macro which by one click all sheet if there is data in a7 will print.

 

[Luke M]

How's this? Note that I haven't defined any special printing rules, this is just a basic print.

[pre]

Sub PrintAll()
For Each ws In ThisWorkbook.Worksheets
If ws.Range("A7") <> "" Then
ws.PrintOut copies:=1
End If
Next
End Sub

[/pre]