Re: Date in header

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

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
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


taso81 wrote:
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" wrote:

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

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


taso81 wrote:
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" wrote:

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

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

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


taso81 wrote:
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?


.

Quantcast