How to print multiple pages of single page spreadsheet with unique invoice numbers?

[tsco]

I'm a frustrated novice at this!!!

I have a single page spreadsheet. I want to print multiple copies and have a unique invoice number on each page printed in cell O1. I don't want to just send it to the printer as individual print jobs. I would like to send it to print as a pdf in a single 100 page document or if not a pdf then just as a multiple page document.

For example first print run would start at number 1001 and last numbered page is 1101.

Please help, I will be grateful!

 

[Michael M]

Hi and welcome to the Board
Try this

Sub MM1()
    For i = 1001 to 1101
        Range("O1").Value = i
        ActiveSheet.Printout
    Next i
End Sub

 

[tsco]

Wow! Almost there!!! Now is there a way to get it to print into one document instead of going straight to the printer as single page print outs? You're amazing! I love the picture of your doggie too!

 

[Michael M]

Try this
It will create anew sheet called Invoice and the number value in Range("O1")
Thank you about the picture, he was an amazing little friend.

Sub MM1()
Dim i As Integer
    For i = 1001 To 1101
        Range("O1").Value = i
        With ActiveSheet
            .Copy after:=Worksheets(Worksheets.Count)
            .Name = "Invoice " & Range("O1").Value
        End With
    Next i
End Sub

 

[tsco]

OMG! You and your doggie are amazing! Thanks! You are brilliant! I've wasted hours for something you just solved for me in minutes. Thank you for sharing your knowledge... and so promptly!

 

[Michael M]

Thanks for your feedback, glad it worked....

 

[HDRockerCgirl]

Try this
It will create anew sheet called Invoice and the number value in Range("O1")
Thank you about the picture, he was an amazing little friend.

Sub MM1()
Dim i As Integer
    For i = 1001 To 1101
        Range("O1").Value = i
        With ActiveSheet
            .Copy after:=Worksheets(Worksheets.Count)
            .Name = "Invoice " & Range("O1").Value
        End With
    Next i
End Sub

Hello Micheal,

I am more of novice than tsco. I would like to do a similar thing in excel but I would to put in dates. I need a new date per page printed, I only have one spreadsheet saved in my computer. Can I just copy an paste that code and change For i = Monday 8/5/2013 TO Friday 8/1/2014, and where do I paste it? Do I have to open function and put it in there? Sorry, I am an extreme novice.

Thank you,
Barbara