Hi

I have a workbook say with worksheets names from Sheet1 to sheet6. no
those exact names but just as an example.

what I want to do is select sheet1 to sheet5 and print. i thought mayb
something along the lines of

Sheet(1 - (sheets.count -1)).select
selection.print

but it doesn't seem to work

--
funkymonkU
-----------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...fo&userid=1813
View this thread: http://www.excelforum.com/showthread.php?threadid=54942

Funky,

Try something like this:

Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", _
"Sheet5")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Rgrds

Giles

"funkymonkUK" wrote:


Hi

I have a workbook say with worksheets names from Sheet1 to sheet6. not
those exact names but just as an example.

what I want to do is select sheet1 to sheet5 and print. i thought maybe
something along the lines of

Sheet(1 - (sheets.count -1)).select
selection.print

but it doesn't seem to work.


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=549426

this would work with my example. but i have a workbook with 46+ tabs
each with different names is there not something equilivant to
range("A1:b2") but for sheets?


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=549426

Funky,

I did it by recording a macro - selecting the sheet tabs using the Shift and
Control keys. This does all the names bit for you (lazy!)

I guess you could do something along the lines of:

Option Explicit
Sub PrintList()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets
Application.StatusBar = "Printing " & ws.Name
if ws.name < "Sheet2" then ws.PrintOut
Next

End Sub

which will print all sheets except sheet2

or if you just want to print them all -

sheets.printout does that for you.


"funkymonkUK" wrote:


Hi

I have a workbook say with worksheets names from Sheet1 to sheet6. not
those exact names but just as an example.

what I want to do is select sheet1 to sheet5 and print. i thought maybe
something along the lines of

Sheet(1 - (sheets.count -1)).select
selection.print

but it doesn't seem to work.


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=549426

There are a few one liners here
http://www.rondebruin.nl/print.htm#Print

--
Regards Ron De Bruin
http://www.rondebruin.nl



"funkymonkUK" wrote in message
...

Hi

I have a workbook say with worksheets names from Sheet1 to sheet6. not
those exact names but just as an example.

what I want to do is select sheet1 to sheet5 and print. i thought maybe
something along the lines of

Sheet(1 - (sheets.count -1)).select
selection.print

but it doesn't seem to work.


--
funkymonkUK
------------------------------------------------------------------------
funkymonkUK's Profile: http://www.excelforum.com/member.php...o&userid=18135
View this thread: http://www.excelforum.com/showthread...hreadid=549426