ActiveReportを使用して帳票ＰＧを組んでいます。
ほぼ同じ内容のページを２枚ずつ出力したいのですが、
Canvasの複写とmainへの追加は、どのように行えば良いのでしょうか？
宜しくお願いします。
以下、現在のソースです。

iPageMax = wActiveReport.Pages.Count
For iPage = 0 To iPageMax - 1
Set wCanvas1 = wActiveReport.Pages(iPage)
wActiveReport.Pages.Add wActiveReport.Pages(iPage)
'wActiveReport.Pages.Add (wCanvas1)
Set wCanvas2 = wActiveReport.Pages(iPage + iPageMax)
Call zArLabelPut(wCanvas1, X, Y, "", 14, 0, 0, 0, 0, "パターン１", "", 100, 100) '違う部分
Call zArLabelPut(wCanvas2, X, Y, "", 14, 0, 0, 0, 0, "パターン２", "", 100, 100) '違う部分
Next iPage