Date in header

[taso81]

I have a user tell me that the date appeared in the header of her document
and she didn't put it their. She tells me the same thing happened yesterday
morning. I don't know if the date was there when she opened the document but
she noticed it after she looked at the printout. She tells me no one else
works on those documents and they shouldn't have headers to begin with. Any
ideas?

 

[smhish]

Is it a field date? The key combination to enter a date is Shift+Alt+D. And
odd mix but possible.

 

[Graham Mayor]

Open the header and delete the date. Dates don't appear by magic.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[taso81]

I created a print macro for her. After investigating the issue the date in
the header appears after she uses the macro. Strangely it doesn't happen on
all the documents.

 

[Graham Mayor]

Show us the macro code.
Is there a printdate field in the document header

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[taso81]

Here is the macro code.

Sub letterhead()
'
' letterhead Macro
' Macro recorded 6/4/2009 by Taso
'
ActivePrinter = "HP 4350 ltr"
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = InchesToPoints(1)
.BottomMargin = InchesToPoints(1)
.LeftMargin = InchesToPoints(1.25)
.RightMargin = InchesToPoints(1.25)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(8.5)
.PageHeight = InchesToPoints(11)
.FirstPageTray = 260
.OtherPagesTray = 261
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
ActiveDocument.PrintOut
ActivePrinter = "RICOH Aficio MP C6000 RPCS"
End Sub

No header exists before the macro is run,

 

[Graham Mayor]

There is nothing in that macro that will of itself add anything to the
header section, however creating letterheads on the fly is most
unsatisfactory. Why not simply create a letterhead template for your users
to create their letters - http://sbarnhill.mvps.org/WordFAQs/Letterhead.htm
You could then add a toolbar button to the template to use the code shown at
http://www.gmayor.com/fax_from_word.htm to print to an alternative printer.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[taso81]

Thanks! I will check it out.

There is nothing in that macro that will of itself add anything to the
header section, however creating letterheads on the fly is most
unsatisfactory. Why not simply create a letterhead template for your users
to create their letters - http://sbarnhill.mvps.org/WordFAQs/Letterhead.htm
You could then add a toolbar button to the template to use the code shown at
http://www.gmayor.com/fax_from_word.htm to print to an alternative printer.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>