Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Date Field in Header
The company I work for has a form for logging when a room or locker has been
checked and/or cleaned. The form is printed out and completed manually by the employees. Instead of printing up a form each day, I would like to print an entire month. Is there a way to have the date advance by one day in the header instead of going in and manually changing the date each time I print? |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Date Field in Header
You could use the page number. For example, for July, you could use
7/{PAGE}/2007. You'd get a page for every day of the month, not just the business days, but you wouldn't have to print all of them. -- Suzanne S. Barnhill Microsoft MVP (Word) Words into Type Fairhope, Alabama USA Word MVP FAQ site: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. " wrote in message ... The company I work for has a form for logging when a room or locker has been checked and/or cleaned. The form is printed out and completed manually by the employees. Instead of printing up a form each day, I would like to an entire month. Is there a way to have the date advance by one day in the header instead of going in and manually changing the date each time I print? |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Date Field in Header
Following on from Suzanne's clever idea (which is much simpler than date
calculations - http://www.wopr.com/cgi-bin/w3t/show...?Number=249902) if you used a combination of {Date \@ "MM"}/{Page}/{Date \@ "yyyy"} or { Page }{ Date \@"/MM/yyyy" } and copy the form to create 31 page document, then add the following macro Sub PrintAMonth() Dim sPages As String Dim sMonth As String Dim sLeap As String Start: sMonth = InputBox("Print forms for which Month number 1 - 12?", _ "Print Forms", Format(Date, "M")) sPages = "1-31" If sMonth 12 Then MsgBox "There are only 12 months in a year!", vbCritical, "" GoTo Start: End If If sMonth = 2 Then sLeap = MsgBox("Is this a leap year?", vbYesNo, "") If sLeap = vbYes Then sPages = "1-29" If sLeap = vbNo Then sPages = "1-28" End If If sMonth = 4 Then sPages = "1-30" If sMonth = 6 Then sPages = "1-30" If sMonth = 9 Then sPages = "1-30" If sMonth = 11 Then sPages = "1-30" 'ActiveDocument.PrintOut Pages:=sPages MsgBox sPages End Sub The macro will create the required number of dated forms each month. -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org Suzanne S. Barnhill wrote: You could use the page number. For example, for July, you could use 7/{PAGE}/2007. You'd get a page for every day of the month, not just the business days, but you wouldn't have to print all of them. " wrote in message ... The company I work for has a form for logging when a room or locker has been checked and/or cleaned. The form is printed out and completed manually by the employees. Instead of printing up a form each day, I would like to print an entire month. Is there a way to have the date advance by one day in the header instead of going in and manually changing the date each time I print? |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Use current date in the default date form field option | Microsoft Word Help | |||
I want a form field to figure a date based on the letter date. | Microsoft Word Help | |||
How to get a date merge field to show a date 60 days in the future | Mailmerge | |||
Date issue merging from Excel field in Date format to Word | Mailmerge | |||
How do i update a word document date field with a future date | Microsoft Word Help |