How to print multiple invoices with unique invoice numbers in one click?

[pchlopg]

I want to print multiple copies and have a unique invoice number on each page printed in cell P4.

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

For an instance, when I exported the excel file into pdf it automatically generates 100 pages with 1 invoice per page and with unique invoice numbers each.

Typing each invoice numbers per sheet is very time consuming and I want to know the easiest way to generate it in just one click.

It is not necessarily has to be pdf.. I just don't know what is the best way I can print invoices that changes the numbers automatically page by page.

I am just a beginner and I have no idea with using developer tools / macro in excel. Step by step instructions would be a great help!

Please help, I will be grateful!

 

[mumps]

This macro will loop though all your sheets and insert a number in P4 starting at 1001, increasing the number by 1 for each sheet.

Sub InsertNumbers()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, x As Long: x = 1001
    For Each ws In Sheets
        ws.Range("P4") = x
        x = x + 1
    Next ws
    Application.ScreenUpdating = True
End Sub