I can't quite figure this out but this might print sheet10,9,8,7,6,etc so
collating is not necessary.

sub printemall()
for i =10 to 1 step-1
sheets("sheet"&i).printout
next i
end sub
--
Don Guillett
SalesAid Software

"Keith Young" wrote in message
...
Any ideas on why this simple printing code might print the pages out of
order?

Sub sevenseven()
numpages = 10
For x = 1 To numpages
Sheet8.Range("cell").Value = "Sheet " & x
Sheet8.PrintOut From:=x, To:=x
Next x
End Sub

all of the pages print, however, the order gets all screwed up - for
example, it might print the pages in the following order
1,2,5,3,4,6,7,9,10,8

Using Excel 2002, Windows XP Prof, HP Laser Printer

Any ideas of how this might be fixed?

Thanks in advance,

Keith