Microsoft Office Forums - View Single Post

paltser · 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