Print sheets in order 'x' times

[Guest]

I have a workbook from which I need to print 15 worksheets. My macro works
fine to do this, however I now need to print more than one copy but would
like them printed in order, i.e. page 1, page 2, page 3 etc 5 times rather
than 5x page 1, 5x page2, etc. How do I add this in? And can I change the
number printed each time?

I'm a complete novice with VBA and my only knowledge is cannibalisation of
existing macros, so simplicity would be appreciated!!

Many thanks
Kate

 

[Guest]

Without seeing your code that prints the 15 sheets it's a bit difficult to
answer. However, The code below will print x copies of each sheet in orde
which you should be able to adapt.

Sub mariner()
numbertoprint = InputBox("How many copies of each")
Dim sh As Worksheet
For x = 1 To numbertoprint
For Each sh In ThisWorkbook.Worksheets
sh.Select
ActiveSheet.PrintOut
Next sh
Next
End Sub


Mike

 

[Guest]

Sub PrintSheets()
Dim x as Integer, Y as Integer

x = InputBox("How many Copies?)
For y = t to x
Do
'Print one set
y = y 6+ 1
Loop until y > x
End Sub

 

[Guest]

'TYPO!
'Should read
For y = 1 to x

Sorry.

 

[Guest]

Another Typo!

y = y + 1

Sorry again.

Is it Friday yet?

 

[Gary Keramidas]

mike:

it should work without selecting each sheet

Sub mariner()
Dim numbertoprint As Long, x As Long
numbertoprint = InputBox("How many copies of each")
Dim sh As Worksheet
For x = 1 To numbertoprint
For Each sh In ThisWorkbook.Worksheets
sh.PrintPreview
Next sh
Next
End Sub

 

[Guest]

Thanks for the suggestions - for some reason I can't access the MS discussion
groups from work so will have to print it off and try it out tomorrow. I
probably should have said that I am printing 15 worksheets out of about 28 -
the others are raw data linking through. Thanks again!
Kate