Auto Increment Number on Data Capture Sheets but reverse print out

[dinodude]

After much searching i found a macro to incrementaly step an order code for our company data capture sheets:

Sub print_sheet()
P = InputBox("How many sheets?")
    For I = 1 To P Step 1
        Worksheets("Sheet1").PrintOut
        Range("C3").Value = Range("C3").Value + 1
    Next I
End Sub

but - if i want to do a large print run of say 200 sheets, it would be beneficial to have the sheets printed in reverse order but keep the number increment in the correct order....
Is this possible please ?

Any help would be really helpful, Thanks

 

[Fluff]

Hi & welcome to the board
Maybe

Sub print_sheet()
P = InputBox("How many sheets?")
    For i = P To 1 Step -1
        Worksheets("Sheet1").PrintOut
        Range("C3").Value = Range("C3").Value - 1
    Next i
End Sub

 

[dinodude]

Hi Fluff

That did work by printing in reverse order 7.6.5.4.3.2.1 but it also increments in reverse order 7,6,5,4,3,2,1

I need it to increment 1,2,3,4,5,6,7 but print 7.6.5.4.3.2.1

Many Thanks

 

[Fluff]

In that case simply change the C3 to +1 from -1

 

[dinodude]

In that case simply change the C3 to +1 from -1

tried that and it still prints increment up

also tried to change step from -1 to 1 and the macro died

 

[Fluff]

Is C3 the print number?

 

[dinodude]

Hi Fluff

C3 is the cell the number resides in

this is so each individual data capture sheet has a unique number that cab be easily read, as previously we had duplicate and triplicate numbers when they were hand written

 

[Fluff]

So you want the first sheet out to say 17315, then 17314 etc, but at the end that cell should read 17315 Is that right?

 

[dinodude]

Hi Fluff

So you want the first sheet out to say 17315, then 17314 etc, but at the end that cell should read 17315 Is that right?

Yes, when you click my macro and run you get a pop up asking how many sheets, if I add "5" it will step to 17315
the sheets will print - 17310, 17311, 17312, 17313, 17314

if I add 100 it will step accordingly - which if I didn't want to see the number of the first sheet I picked up I could leave the sheets face down, but that's not practical.

So in the scenario above we would need the sheets to increment to 17315 but the last printed sheet would be the starting number of17310

 

[Fluff]

How about

   P = InputBox("How many sheets?")
   Range("C3").Value = Range("C3").Value + P
   For i = P To 1 Step -1
      Worksheets("Sheet1").PrintOut
      Range("C3").Value = Range("C3").Value - 1
   Next i
   Range("C3").Value = Range("C3").Value + P