Select range then print same range in all worksheets

[jnbrewer69]

Hi,

I have got a macro that will print a range on active worksheet.
I need the code or a new macro to then loop this thru all work sheets in workbook

see code below

-----------------------------------------------------------------------
Sub printtotal()
'
' printtotal Macro
' Macro recorded 04/07/2007 by jbrewer
'
' Keyboard Shortcut: Ctrl+Shift+Q
'
ActiveSheet.Unprotect
Range("Z1:AL46").Select
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub
------------------------------------------------
Thanks in advance

Johnny B

 

[goldfish]

To loop through each sheet:

Dim wksheet as worksheet
For each wksheet in worksheets
wksheet.select
'Put your code here
Next wksheet

HTH,
~Gold Fish

P.S. Your above code can be simplified to:

ActiveSheet.Unprotect 
Range("Z1:AL46").PrintOut Copies:=1, Collate:=True 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[jnbrewer69]

Sorry I'm a noob where do i put the code lol

Thanks for you help where do i put the code. I know its something i'm doing wrong

this give me an error 1004
" methodselect object failed

---------------------------------------------------------
Sub Printotal()


Dim wksheet As Worksheet
For Each wksheet In Worksheets
wksheet.Select
ActiveSheet.Unprotect
Range("Z1:AL46").PrintOut Copies:=1, Collate:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next wksheet

End Sub

 

[goldfish]

Sub Printotal() 
Dim wksheet As Worksheet 
For Each wksheet In Worksheets 
wksheet.Range("Z1:AL46").PrintOut Copies:=1, Collate:=True 
Next wksheet 
End Sub

Not sure why its erroring, that looks right... Does the code work with out unprotecting like above? or maybe:

Sub Printotal() 
Dim wksheet As Worksheet 
For Each wksheet In Worksheets 
With wksheet
.Unprotect 
.Range("Z1:AL46").PrintOut Copies:=1, Collate:=True 
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Next wksheet 
End Sub

HTH,
~Gold Fish

 

[jnbrewer69]

Works a treat

The second cod works a treat.Thanks for all your help goldie