[vba]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

End With
ActiveDocument.Sections2).Range.Style="Section2Style" [/vba]I am not sure what you are trying to do with the Print code.