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

 

[dinodude]

Will I still need the opening

Sub print_sheet()

and closing

End Sub

?

 

[Fluff]

Yes you will, must have missed them when I copied it.

 

[dinodude]

[SOLVED] Re: Auto Increment Number on Data Capture Sheets but reverse print out

Hi Fluff

many thanks for the help - just tested it with the sub and end sub cos I thought they should have been there and for a print of 3 it worked fine.

[Solved]

 

[Fluff]

Re: [SOLVED] Re: Auto Increment Number on Data Capture Sheets but reverse print out

Glad to help & thanks for the feedback