Hi, I would like to join these together, but have the second macro
only apply to the sheets
monback,tuesback,wedback,thursback,fridback,satbac k as they are the
only sheets that may have two pages to print. The print button will be
on a sheet called starta.

Thanks code below....

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
Sheets(Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")).Select
ActiveWindow.SelectedSheets.PrintOut copies:=1
Sheets("starta").Select
Application.ScreenUpdating = True
End Sub


Sub Print1or2pages()
If Range("total1") 0 Then ActiveSheet.PrintOut From:=1, To:=1
If Range("total2") 0 Then ActiveSheet.PrintOut From:=2, To:=2
End Sub

untested but try

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
myarray=Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")
for each w in myarray
w.print
next w
Application.ScreenUpdating = True
End Sub

--
Don Guillett
SalesAid Software

"pano" wrote in message
oups.com...
Hi, I would like to join these together, but have the second macro
only apply to the sheets
monback,tuesback,wedback,thursback,fridback,satbac k as they are the
only sheets that may have two pages to print. The print button will be
on a sheet called starta.

Thanks code below....

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
Sheets(Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")).Select
ActiveWindow.SelectedSheets.PrintOut copies:=1
Sheets("starta").Select
Application.ScreenUpdating = True
End Sub


Sub Print1or2pages()
If Range("total1") 0 Then ActiveSheet.PrintOut From:=1, To:=1
If Range("total2") 0 Then ActiveSheet.PrintOut From:=2, To:=2
End Sub

Don it errors out but could you explain what each w in my array
means???

This is the error
w.print
runtime error 424 object required


Thanks so far

On Feb 3, 12:13 pm, "Don Guillett" wrote:
untested but try

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
myarray=Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")
for each w in myarray
w.print
next w
Application.ScreenUpdating = True
End Sub

--
Don Guillett
SalesAid Software
"pano" wrote in message

oups.com...



Hi, I would like to join these together, but have the second macro
only apply to the sheets
monback,tuesback,wedback,thursback,fridback,satbac k as they are the
only sheets that may have two pages to print. The print button will be
on a sheet called starta.

Thanks code below....

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
Sheets(Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")).Select
ActiveWindow.SelectedSheets.PrintOut copies:=1
Sheets("starta").Select
Application.ScreenUpdating = True
End Sub

Sub Print1or2pages()
If Range("total1") 0 Then ActiveSheet.PrintOut From:=1, To:=1
If Range("total2") 0 Then ActiveSheet.PrintOut From:=2, To:=2
End Sub- Hide quoted text -

- Show quoted text -

It should have been w.printout but that's not the only problem. I just
tested this
The for each is a looping macro. Look in the vba help index for LOOP and go
from there.
It might be easier to exclude the undesired sheets instead.

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
myarray = Array("monday", "monback", "tuesday", "tuesback", _
"wednesday", "wedback", "thursday", "thurback", "friday", _
"fridback", "saturday", "satback", "weekly")
For Each w In myarray
'MsgBox w
'Sheets(w).PrintPreview
Sheets(w).PrintOut
Next w
Application.ScreenUpdating = True
End Sub
--
Don Guillett
SalesAid Software

"pano" wrote in message
ps.com...
Don it errors out but could you explain what each w in my array
means???

This is the error
w.print
runtime error 424 object required


Thanks so far

On Feb 3, 12:13 pm, "Don Guillett" wrote:
untested but try

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
myarray=Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")
for each w in myarray
w.print
next w
Application.ScreenUpdating = True
End Sub

--
Don Guillett
SalesAid Software
"pano" wrote in message

oups.com...



Hi, I would like to join these together, but have the second macro
only apply to the sheets
monback,tuesback,wedback,thursback,fridback,satbac k as they are the
only sheets that may have two pages to print. The print button will be
on a sheet called starta.

Thanks code below....

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
Sheets(Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")).Select
ActiveWindow.SelectedSheets.PrintOut copies:=1
Sheets("starta").Select
Application.ScreenUpdating = True
End Sub

Sub Print1or2pages()
If Range("total1") 0 Then ActiveSheet.PrintOut From:=1, To:=1
If Range("total2") 0 Then ActiveSheet.PrintOut From:=2, To:=2
End Sub- Hide quoted text -

- Show quoted text -