Print macro

[brianwa]

I have a workbook that contains worksheets Jan - Feb, YTD Summary and
Summary by Quarter.

I would like to create a macro that will allow me to choose a range o
sheets to print (ie Jan - March)

Any help would be appreciated.

Thanks in advance.
B

 

[Don Guillett]

try this
http://tinyurl.com/3c8n7

 

[Don Guillett]

Actually this might be easier. It uses the index number of the sheet

Sub PrintSelectedSheets()
x = InputBox("first sheet to print")
y = InputBox("last sheet to print")

For Each ws In Worksheets
If ws.Index >= Worksheets(x).Index And _
ws.Index <= Worksheets(y).Index Then
ws.PrintOut
End If
Next
End Sub

 

[Tom Ogilvy]

this will work if there are only worksheets in the workbook or the first 12
sheets are the sheets of interest.

It there are chartsheets or other type sheets at the beginning or
intermingled, it won't work. ws.Index returns an index into the Sheets
collection, not the worksheets collection.

--
Regards,
Tom Ogilvy

Actually this might be easier. It uses the index number of the sheet

Sub PrintSelectedSheets()
x = InputBox("first sheet to print")
y = InputBox("last sheet to print")

For Each ws In Worksheets
If ws.Index >= Worksheets(x).Index And _
ws.Index <= Worksheets(y).Index Then
ws.PrintOut
End If
Next
End Sub

 

[Norman Jones]

Hi Tom,

Don's code works for me whether the workbook includes intermingled
non-worksheet sheets or not.
Whilst ws.Index returns an index into the Sheets collection, since the ws
variable is restricted to the Worksheets sub-collection, the presence of
other sheet types causes no problem.

---
Regards,
Norman

this will work if there are only worksheets in the workbook or the first 12
sheets are the sheets of interest.

It there are chartsheets or other type sheets at the beginning or
intermingled, it won't work. ws.Index returns an index into the Sheets
collection, not the worksheets collection.

 

[brianwa]

Thanks so much, this works just as I needed.

B

 

[Don Guillett]

I'm glad it worked for you, as you requested.