PrivateSub SetPageFooterTemplate()
Dim reportObj As Report = New Report()
.....
Dim borderFactory As FrameworkElementFactory = New FrameworkElementFactory(Type.GetType(Border))
Dim buttonFactory As FrameworkElementFactory = New FrameworkElementFactory(Type.GetType(Button))
borderFactory.AppendChild(buttonFactory)
Dim dt As DataTemplate = New DataTemplate()
dt.VisualTree = borderFactory
reportObj.PageFooterTemplate = dt
End Sub
'宣言
Public Property FooterTemplate As DataTemplate