Macro for setting print area and print multiple worksheets

[USCguy09]

I have a excel 2007 file that contains 79 worksheets w/ all same formatting.
I have already selected all worksheets and set the page layout to size A3. Now, i need to set the print area to A1:N58 for all 79 sheets and print them out. I only know how to do this for 1 worksheet (activesheet) at a time. Below is what i used.

Sub test3()
'
' test3 Macro
'

'
Range("A1:N58").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$58"
End Sub


How do I apply the print area to all 79 sheets and then have all 79 worksheets printed at once?

 

[VoG]

Try

Sub prt()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .PageSetup.PrintArea = "A1:N58"
        .PrintOut
    End With
Next ws
End Sub

 

[USCguy09]

Try

Sub prt()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    With ws
        .PageSetup.PrintArea = "A1:N58"
        .PrintOut
    End With
Next ws
End Sub

worked perfectly. thank you good sir!