怎么在PageLayoutControl1控件中显示与mapcontrol中同样的视图内容

高手们：请问怎么在PageLayoutControl1控件中显示与mapcontrol中同样的视图内容（为了制图）？？？<img src="images/post/smile/dvbbs/em02.gif" />

可以用接口IOBjectCopy ,对地图进行复制

<P>Private Sub CopyFocusMap()
'  Dim i As Integer</P><P>'  For i = 0 To m_pPMap.LayerCount - 1
'    PageLayoutControl1.ActiveView.FocusMap.AddLayer m_pPMap.layer(i)
'  Next
    '获取 IObjectCopy 接口
    Dim pObjectCopy As IObjectCopy
    Set pObjectCopy = New ObjectCopy</P><P>    '获取 IUnknown 接口 (源“Map”)
    Dim pToCopyMap As IUnknown
    Set pToCopyMap = frmMap.map1.ActiveView.FocusMap 'm_pPactiveview.FocusMap</P><P>    '获取 IUnknown 接口 (参与复制的源“Map”)
    Dim pCopiedMap As IUnknown
    Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)</P><P>    '获取 IUnknown 接口 (目的“Map”)
    Dim pToOverwriteMap As IUnknown
    Set pToOverwriteMap = PageLayoutControl1.ActiveView.FocusMap</P><P>    '复制 Map
    pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap</P><P>    
    '设置 PageLayoutControl 的 Extent
  
    PageLayoutControl1.Extent = frmMap.map1.Extent 'm_pPactiveview.Extent  ''hzm
  
    '刷新显示
    PageLayoutControl1.Refresh esriViewGraphics</P><P>End Sub</P>

<P>但是上面的代码，不能实现copy指北针，图例，比例尺等Element的功能</P><P>关注中！</P>

<P><img src="http://www.gisempire.com/bbs/Skins/default/topicface/face323.gif"></P><P>关注中！</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<P>但是上面的代码，不能实现copy指北针，图例，比例尺等Element的功能</P><P>关注中！</P>

非常感谢！！后来我是在通过循环把mapcontrol中的图层加到pagelayoutcontrol中

<P>如果单纯写图层进去就太SIMPLE，我们要达到的效果即使连ELEMENT都可以联动啊</P>

<P>上面的方法可以把ELEMENT拷贝的</P>

<P>那请问连动该如何实现呢？</P><P>请指教！本人及ao开发者都会感谢你的。</P><img src="images/post/smile/dvbbs/em02.gif" />