mark 窗口页眉页脚
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As new PrintDoc
Dim ra_1 As new prt.RenderArea
Dim ra_2 As new prt.RenderArea
Dim ra_3 As new prt.RenderArea
Dim flag As Boolean = False
For Each c As object In Doc.Body.Children
If c.Gettype.name Like "*RenderText*" Then
If flag = False Then
ra_1.Children.Add(c.Clone)
Dim nrt = c.clone
nrt.height = 0
ra_2.Children.Add(nrt)
Else
ra_2.Children.Add(c.clone)
End If
ElseIf c.Gettype.name Like "*RenderTable*" Then
ra_3.Children.Add(c.Clone)
Dim nrt = c.clone
nrt.height = 0
ra_2.Children.Add(nrt)
flag = True
End If
Next
ndoc.Body.Children.Add(ra_3)
nDoc.PageHeader = ra_1 '作为页眉使用
ndoc.PageFooter = ra_2
ndoc.Preview()