Print Macros

[tratliff]

I have a workbook with @40 tabs.

Each tab is 4 pages with each page representating a quarter. I want t
be able to print a specific quarter of each tab.

For example, if it is Q2 then I want to be able to click a button an
Q2 for each tab to print.

Any suggestions??

 

[Tom Ogilvy]

Assume Q2 is in M1:Z50 on each page

for each sh in Workbooks.worksheets
sh.Range("M1:Z50").Printout
Next

 

[tratliff]

I tried the for each but got a Compile Error:

Method or data member not found.

Please help!!!

 

[Tom Ogilvy]

Dim sh as Worksheet
for each sh in Workbooks("Myworkbook.xls").worksheets
sh.Range("M1:Z50").Printout
Next

my typo, sorry. Change Myworkbook.xls to reflect the name of the workbook
with the quarterly data.

 

[tratliff]

What if I don't want the range to print on EVERY worksheet..