Numbering

  • Thread starter Thread starter Shane Nation
  • Start date Start date
S

Shane Nation

I need to produce counted copies of a documnet. The same document just have
which number it is printed on it. i.e.If I print 10 copies, each one is
number 1,2,3,4,5, etc and then if I print 10 more they are numbered
11,12,13,14 etc.

Please does anyone know if you can do this, I am using Office XP

Thanks
 
Shane,

I adapted a Macro posted by Doug Robbins that you could
use for this purpose.

You need to insert a bookmark named CopyNumber1 in you
document at the location you want the number to appear.

Run the following macro to select number of copies you
want and to print the document:

Sub NumberCopies()
Dim Message, Title, Default, NumCopies
Message = "Enter the number of copies that you want to
print"
Title = "Print"
Default = "1"
NumCopies = Val(InputBox(Message, Title, Default))
CopyNumber = System.PrivateProfileString
("C:\Settings.Txt", "MacroSettings", "CopyNumber")
If CopyNumber = "" Then
CopyNumber = 1
End If
Dim rng1 As Range, rng2 As Range
Set rng1 = ActiveDocument.Bookmarks("CopyNumber1").Range
Counter = 0
While Counter < NumCopies
rng1.Delete
rng1.Text = CopyNumber
ActiveDocument.PrintOut
CopyNumber = CopyNumber + 1
Counter = Counter + 1
Wend
System.PrivateProfileString
("C:\Settings.txt", "MacroSettings", "CopyNumber") =
CopyNumber
With ActiveDocument.Bookmarks
.Add Name:="CopyNumber1", Range:=rng1
End With
ActiveDocument.Save
End Sub
 
Back
Top