Mike

Sub PrintCopies()
Dim i As Long
Dim num As Long
num = InputBox("How Many Copies do You Want")
For i = 1 To num
With ActiveSheet
.PageSetup.LeftFooter = "Page " & i
.PrintOut
End With
Next
End Sub

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben MS Excel MVP

On Fri, 16 Feb 2007 10:50:20 -0800, Mikea12
wrote:

Hi All,
Any comments will help

I am trying using Excel or Word to do this, Basically I ship boxes and want
the same document which is one page to be able to print 1 of 50 then 2 of 50
so on...etc...

Any help

Mike