Results 1 to 2 of 2
Thread: Printing (97)
2002-03-12, 18:31 #1
- Join Date
- Jan 2001
- Thanked 0 Times in 0 Posts
At work we use word 97 on Win NT. I have a Epson 850 connected on LPT1. Whenever I print the top part of the header is "cut off" and not printed.
I find if I set the header 1.5cm from the edge it works OK. Unfortunaly most company docs are set to 1.25cm, which I believe to be the problem.
How can I automatically reformat documents on opening to move the header text down the document to allow it to print properly.
I have the correct printer driver.
2002-03-13, 00:17 #2
- Join Date
- Feb 2001
- Silicon Valley, USA
- Thanked 94 Times in 90 Posts
Re: Printing (97)
You could add a macro like this to your Normal template:
Dim aSection As Section
For Each aSection In ActiveDocument.Sections
aSection.PageSetup.HeaderDistance = CentimetersToPoints(1.5) '42.51968
To make it automatic, you can use the Document_Open even or an AutoOpen macro. In either case, you would call the ChangeHeaderMargin procedure. If you wanted Word to treat this change as though it had been that way when the document was opened, you could follow that with ActiveDocument.Saved = True. That way, if you decide to close the document, Word will not prompt you to save changes.