Print Multiple worksheets

  • Thread starter Thread starter Ted
  • Start date Start date
T

Ted

I need to print all worksheets between sheets named "Start" and "End". Does
anyone have a macro to do this?
 
Try the below

Sub Macro()
Dim intTemp As Integer
For intTemp = Sheets("Start").Index To Sheets("End").Index
Sheets(intTemp).PrintOut Copies:=1, Collate:=True
Next intTemp
End Sub

If this post helps click Yes
 
Worked Great! Thanks!

Jacob Skaria said:
Try the below

Sub Macro()
Dim intTemp As Integer
For intTemp = Sheets("Start").Index To Sheets("End").Index
Sheets(intTemp).PrintOut Copies:=1, Collate:=True
Next intTemp
End Sub

If this post helps click Yes
Click to expand...
 
Back
Top