New number after every print

paltser · #1 12-02-2015, 02:58 AM

Hey

I am trying to make macro wicth chanse number after every printed page.
In must to be able to start how many copys i want and starting number.

Code:

Sub PrintCopies_ActiveSheet()

 Dim CopiesCount As Long
 Dim copynumber As Long
 Dim algusnumber As Long

 CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
 algusnumber = Application.InputBox("First number", Type:=1)

 For copynumber = algusnumber To CopiesCount
 With ActiveSheet
    .Range("B1").Value = copynumber
    .PrintOut
 End With
 Next copynumber
 End Sub

that dosnˇt work...:S

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
New number after every print	paltser	Word	7	12-02-2015 07:46 AM
Page number only at print	krigre	Excel	1	06-10-2015 03:59 AM
Page number is set outside print area	sgp22	Word	2	06-18-2014 11:06 AM
Increase serial number for every print	atomtm	Word	1	06-15-2012 05:39 AM
I don't want to print the Number colume	lostsoul62	Excel	5	06-14-2012 08:58 AM