try this idea
Sub printsamernginsheets()
For Each ws In Worksheets
ws.Range("a2:b").PrintPreview
Next ws
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jesper Audi" wrote in message
...
10 years ago I switched from Lotus123. It was very easy in Lotus to print
the same range of multiple sheets while in group mode, one sheet per page.
In Excel, even now you have to go to every single page to set the print
area.
Surely, there should be a way to do this, at the very least you should be
able to copy and paste a print range from one page to another. I just
bought
Excel 2007 and was very disappointed to see it was not there.



----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc