说明:对pagelayout下面显示的图件(该图件已经生成)进行保存
Dim pDocument As IMapDocument = New MapDocumentClass()
pDocument.Open(strDocCument)
Dim pMxdContents As IMxdContents = pPageLayoutControl.PageLayout()
pDocument.ReplaceContents(pMxdContents)
pDocument.Save(True, True)
pDocument.Close()