Trying to Figure How to Use One Page but Print 1 0f 50

M

Mikea12

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
 
G

Gord Dibben

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 Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to Tool>Macro>Macros.

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


Gord Dibben MS Excel MVP
 
J

john

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)
 
Top