Hi

Try this one:

Sub printSheets()
For Each sh In ThisWorkbook.Sheets
If sh.Visible = True Then
sh.PrintOut
End If
Next
End Sub

Regards,
Per

"Luc" skrev i meddelelsen
...
Thanks, but the number of sheets is not fix, it can be 2 to x


"Dave Peterson" schreef in bericht
...
Record a macro when you select/group all the sheets and print them.
Remember to
ungroup them when you're done.

Luc wrote:

Title says it all !!!

Thanks for your help

Luc

--

Dave Peterson