Hi All,

We have like 160 PC's in the network, Novell server and XP user PC's, Office 2003. Some have default paper size set in Word/Excel to letter and  some to A4.
I'd like to change them all to A4 at once. What would be the best way to do it?

I have considered 2 options:
1) creating normal.dot with A4 size and distributing it via Novell on local user PC - disadvantage: some users have changed their normal.dot and those changes will be lost (probably will be dropped by my boss due to that)
2) send instructions to all users how to change normal.dot to A4 size : file--> page setup --> paper
change of size to A4 and then "default" button, disadvantage: does not look professional, some ppl won't change it and it will not effect

Are there any better ways do to so? Is there a setting in registry that sets user's default paper size?

I wonder why we have 2 normal.dot templates in organization? One is local on user's C: drive and one is on network drive. I don't fully understand why do we need to have 2. That's probably not important but I wanted to check.

I think that we must have installed XP's with US settings then(my predecessors) .  Good thing is that now I know the root cause, still I will need to find best way to change paper size settings on all PC's.  Change of regional settings to English UK?


Thanks for any hints
Piotr Rytel

You can set the paper size with the following vbs script - for instance during logon:

 

set wd=CreateObject("Word.Application")
set n=wd.NormalTemplate.OpenAsDocument

'n.PageSetup.PaperSize = 7 'wdPaperA4

with n.PageSetup
	.PaperSize = 7
    .LineNumbering.Active = False
    .Orientation = 0 'wdOrientPortrait
    .TopMargin = wd.CentimetersToPoints(2.5)
    .BottomMargin = wd.CentimetersToPoints(2)
    .LeftMargin = wd.CentimetersToPoints(2.5)
    .RightMargin = wd.CentimetersToPoints(2.5)
    .Gutter = wd.CentimetersToPoints(0)
    .HeaderDistance = wd.CentimetersToPoints(1.25)
    .FooterDistance = wd.CentimetersToPoints(1.25)
    .FirstPageTray = 0 'wdPrinterDefaultBin
    .OtherPagesTray = 0 'wdPrinterDefaultBin
    .SectionStart = 2 'wdSectionNewPage
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .VerticalAlignment = 0 'wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    .TwoPagesOnOne = False
    .BookFoldPrinting = False
    .BookFoldRevPrinting = False
    .BookFoldPrintingSheets = 1
    .GutterPos = 0 'wdGutterPosLeft
End With

n.Close True
wd.Quit

• Marked as answer by Harry Yuan Monday, July 04, 2011 5:05 AM

Thanks for the code. I was away on vacations, will take a look in next few days if that worked for me.

 

 

This is apply to word only. But how to apply to all printer in control panel in order to make the paper size default in all other program? thank, kanel