Create Macro VBA For Sequential Number Printing

[DB032788]

Hello, I am an amateur in Excel at best. I am working to create a document for my receiving department in the supply chain industry. I want to create a controlled numbered document. Using the Fiel I1 as the controlled number, I'd like for a prompt to display to create a document page number range. For Example, I need to print 100 pages of this document, and Control # field needs to increment by 1 on each page. Any assistance is greatly appreciated in getting the code to create an auto prompt when select print to add the page sequencing needed for ongoing use.

Example below. Highlighted field is I1.

 

[PeteWright]

Hello @DB032788

Try this VBA code:

Private Sub PrintPages()
   Dim n As Integer, i As Integer
   Dim c As Range
   Set c = Range("I1")
   n = InputBox("How many pages?", "n pages", 1)
   For i = 1 To n
      c.Value = i
      ActiveSheet.PrintOut
   Next i
End Sub