Hello

I have a userform with a box for a number

If you enter a number into this box, this is how many prints you want

However, these prints are labels and I also require the following

example

If you require 2 prints:

1. Your first sheet will say 1 of 2
2. and the second sheet will say 2 of 2

Help

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200511/1

Gaz

Code from Ron de Bruin's site

http://www.rondebruin.nl/print.htm#number

Sub PrintCopies_ActiveSheet()
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount = Application.InputBox("How many Copies do you want", Type:=1)

For CopieNumber = 1 To CopiesCount
With ActiveSheet
'number in cell A1
'.Range("a1").Value = CopieNumber & " of " & CopiesCount

'number in the footer
.PageSetup.LeftFooter = CopieNumber & " of " & CopiesCount

'Print the sheet
.PrintOut
End With
Next CopieNumber
End Sub

REM or un-REM the lines you want to use. As written, will give you the page 1
of X in the left footer.


Gord Dibben Excel MVP

On Sat, 19 Nov 2005 20:26:16 GMT, "Gaz via OfficeKB.com" <u15117@uwe wrote:

Hello

I have a userform with a box for a number

If you enter a number into this box, this is how many prints you want

However, these prints are labels and I also require the following

example

If you require 2 prints:

1. Your first sheet will say 1 of 2
2. and the second sheet will say 2 of 2

Help