To do that, you will need to make the following changes to the:

Private Sub app_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult
As Document)

Change the line

Set NewDoc = Documents.Add(Visible:=False)

to

Set NewDoc = Documents.Add(Visible:=True)

and add the following line:

ActiveWindow.View.Type = wdPrintView

before the line:

NewDoc.SaveAs FldrPath & fnames(i)

Note however that you will get a lot more screen activity during the
process.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"C. Cunningham" wrote in message
...
That's it! I tested it and it works great! I replaced all occurences of
C:\settings.txt with C:\Documents and Settings\ccunningham\My Documents\My
Documents, and it worked just fine, and I tested it on my co-worker's
computer and it also works.

Thank you both Doug and Graham so much for all of your help on this issue!

I have just one final question. When I open the newly created individual
merge files, they open in the "Normal" screen view, instead of "Print
Layout"
view. Is there a code I can put somewhere that will save the file in
print
layout view instead?