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

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

I would think Word would be better. You could set up the page, add the
fields for page and total pages either in the header/footer or through the
insert, auto text, header/footer, page x of y. Add a page break then copy
and paste the required number of pages (should not take too long using the
paste shortcut of Ctrl V). You might then need to update all the page
numbers by seslectin all and pressing f9.

Alternatively you could consider using mail merge in word. Set up an excel
sheet with a list of the number of pages ie 1 to 50 in a column. Then use
this as the data source for the doccument and add this field for the page
number.

hope this helps
--
John
MOS Master Instructor Office 2000, 2002 & 2003
Please reply & rate any replies you get

Ice Hockey rules (especially the Wightlink Raiders)


"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