Numbering printed pages

Scott-2013 · Oct 27, 2013

Hello,

First off let me thank everyone who contributes to forums like this. It is so nice knowing that there are people out there willing to help when someone needs a hand...and on that note

)

I have created a spreadsheet that I am using as a work order. I have a cell (C2) that contains the work order number...lets say it is WO-GV-0000.

Instead of taking these to a printer and paying a bunch to have them printed off, I'd like to print off 100 of them all at once and have the number increase by one each time...WO-GV-0001, WO-GV-0002 and so on.

I'm going to assume that this will be some kind of a VB or macro that will allow me to do this (if it's even possible).

Thank you in advance for any help you can provide.

Scott

NoS · Oct 28, 2013

give this a try

Code:

Sub NumberedWorkOrders()
    Dim i As Integer

    For i = 1 To 100    'start number to end number
        Cells(2, 3).Value = "WO-GV-" & Format(i, "0000")
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i
    
End Sub

I see you cross posted at these sites

http://www.mrexcel.com/forum/excel-questions/735383-numbering-printed-pages.html
http://www.excelforum.com/excel-programming-vba-macros/964194-numbering-pages.html

all forums have rules about that.

Numbering printed pages

Scott-2013

New member

NoS

Member