Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.

How do I print the same page on Excel with different page numbers?

I have a page made in Excel, I want 30 copies of that page, but I need page numbers 1-30. If I just hit print it will print Page 1, 30 times. Is this possible without copy & pasting?

5 Answers

Relevance
  • Anonymous
    1 decade ago
    Favorite Answer

    it has to be a macro

    add a new module and paste the code below :

    Sub aPrint()

    copies = InputBox("how many copies to print out?")

    For i = 1 To copies

    ActiveSheet.PageSetup.CenterHeader = i

    ThisWorkbook.PrintOut

    Next i

    End Sub

    this macro will print the active sheet as many times as you will ask, and update the header according to the number of times the same page is printed out.

    ie first time is 1, second time is 2... 30th time is 30

  • 5 years ago

    Is there a way to get that macro to print the numbers in the header and in the footer?

  • 1 decade ago

    Nope! Unfortunatly the computer is logical and what you are asking is not... I run into that alot. Copy, paste is the best way i have found to make that work.

  • 1 decade ago

    Not sure why you would want to do this, but I don't see any way in doing it other than manually entering the page numbers.

    sorry...

  • How do you think about the answers? You can sign in to vote the answer.
  • Anonymous
    1 decade ago

    idefix, you should be shamed

    You are using my exact code I posted to a similar question..

    Check the other question and solution here

    http://answers.yahoo.com/question/index;_ylt=Apbuw...

    Check the solution there

    Enjoy my profile, I am the VBAXLMan

Still have questions? Get your answers by asking now.