Printing the same sheet with different page numbers

[murry]

I have a worksheet in excel that I need to use to create a 100 page logbook. I'm going print the same 1-page worksheet 100 times and bound it. I have to have each page numbered Page 1 of 100, page 2 of 100. . . I'm sure there is a way to do this with some kind of looping print macro, but I'm not sure how. Can someone please help.

Thanks.

 

[andiemac]

Assuming you are wanting these page numbers in the footer you could use a macro that updates the footer then prints the page once and loops back through until 100 pages are printed.


You will either want to make sure you are on your master logbook worksheet before you set this off, or you will want to hardcode the name of your worksheet into the .Printout line.

Sub PrintLogBook()
Dim x%
x% = 1
For x% = 1 To 100
    With ActiveSheet.PageSetup
                .CenterFooter = x% & " of 100"
    End With
    ActiveSheet.PrintOut
    
Next x%
End Sub

If you prefer the page numbers on the left chage the footer line to

.LeftFooter = x% & " of 100"

Or if you want them on the right

.RightFooter = x% & " of 100"

 

[murry]

Thanks

 

[janethl9]

When running a Macro, Do I need to get permission from IT? I have tried to run a Macro to change the page number and It is not working.