想按照单位名称的列来生成目录,比如 文化局………………………………………………1
体育局………………………………………………3
Dim doc As New PrintDoc
Dim toc As New prt.RenderToc
Dim s As String
Dim rt As New prt.RenderText
toc.BreakAfter = Prt.BreakEnum.Page
rt.Text = "目录"
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
s = "单位名称"
doc.Body.Children.Add(rt)
For n As Integer = 1 To 30
rt = New prt.RenderText
rt.Text = "单位名称"
doc.Body.Children.Add(rt)
toc.AddItem(rt.Text, rt, 1)
For m As Integer = 1 To 10
rt = New prt.RenderText
rt.Text = s
doc.Body.Children.Add(rt)
toc.AddItem("第" & m & "节", rt, 2)
Next
Next