Increment date on printing each page

**HAPPYHILARY** · 07-11-2009, 04:31 PM

I need to print a daily manual check list and with each copy I print need to increment the date field ie: 1st page printed = 10th July 2nd page printed = 11th July.

Is this possible please ...... Thanks.

**oldchippy** · 07-11-2009, 04:49 PM

Hi,

Can't you put a custom footer in the page set up with something like "Printed on " then click the date icon?

**HAPPYHILARY** · 07-13-2009, 07:01 AM

Wise Old Owl...

Sorry - just to clarify ....

I print one months worth of safety check sheets in one go ... so when I send it to the printer can Excel create a different date on each page???

Thanks for your time.

Hilary

**oldchippy** · 07-13-2009, 07:55 AM

Hi,

To do that you would need a macro, but if you want a workaround you could go to File > Page Set up > Header/Footer, click Custom Header in the left section type July and a single space, then click on Page number icon (2nd one). Then when printed each new page is "dated". Obviously you would need to edit it for each month. does that work for you?

**Palmetto** · 07-13-2009, 09:10 AM

OldChippy,

Slick trick - I like it!

**HAPPYHILARY** · 07-13-2009, 11:19 AM

I agree with Mr South Carolina! ... very slick.
Thank you - will try it when I go into work.

The Macro you mention ..... is it complex?
If not I'd like to have a go at it if you wouldn't mind pointing me in the right direction.

Much appreicated,
Hilary

**davebozy** · 12-12-2010, 11:20 PM

I'm trying to do the same thing but I need 6 months in advance and need the day of week included. Is that possible?

**mrverd** · 03-03-2015, 10:34 PM

Can you create something that allows me to pick dates to print?

**martindwilson** · 07-26-2009, 08:17 PM

you said each page. not that your report took 2 pages!

**martindwilson** · 07-26-2009, 09:48 PM

try this code

Sub datesinfooter()
    Dim CopiesCount As Long
    Dim CopieNumber As Integer
    Dim N As Integer
    
    N = 1

    CopiesCount = Application.InputBox("How many days in month ?", Type:=1)

    For CopieNumber = 1 To CopiesCount
        With ActiveSheet
       
         .PageSetup.RightFooter = "&""Arial,Bold""&16DATE : " & N & Format(Now, " MMMM YYYY")
        
   
     .PrintOut 'Print the sheet
       
        End With
        N = N + 1
    Next CopieNumber

ActiveSheet.PageSetup.RightFooter = ""

End Sub

**martindwilson** · 07-27-2009, 05:51 AM

I slept on it and came up with this, there may be(well there definitely are to be honest) neater ways as my vba isn't too hot!!!

**HAPPYHILARY** · 07-27-2009, 10:14 AM

Thank you so much for your hard work.
Will try it when I get into work.
Grateful Hilary

**phil2803** · 04-23-2010, 09:46 AM

My solution for creating a month of pages with a new date on each page required no special macros or page headers.
I simply created one day and then inserted a page break and continually copied and pasted the days underneath until a month was completed,
incrementing each day by a +1 function.

**martindwilson** · 12-13-2010, 06:10 AM

please start your own thread link to this if required

Increment date on printing each page

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Re: Increment date on printing each page

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions