How do i print all visible sheets ?

  • Thread starter Thread starter Luc
  • Start date Start date
Record a macro when you select/group all the sheets and print them. Remember to
ungroup them when you're done.
 
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 said:
Thanks, but the number of sheets is not fix, it can be 2 to x
Click to expand...
 
Rightclick on any of the sheet tabs that is visible.
You'll see an option to "select all sheets"
This will select all 2 to x sheets.
 
Or you could just record a macro when you show the print dialog:

File|Print (in xl2003 menus)
Select entireworkbook

The hidden sheets won't be printed.
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

When a sheet is copied, i want also that the Sub's whithin this sheet is copied to the new sheet 2
How to check if a sheet exists ? 4
Case select returning error when cell contains #N/A : how must i avoid this error 2
Change cell value between EMPTY and X when i click on the cell. 5
Setting row height to 0 in the visible celss of a range 1
Create a new worksheet (excel 2003) if one or more cells in a range is not empty 6
Strange thing when copying a range !! 5
ActiveWorkbook.Names.Add Name ??? 4

Back
Top