当前代码如下:
''''
Dim cct As Integer = 56 ‘一行显示的字符字节数
Dim doc As New PrintDoc
Dim ss As String
Dim rt As New prt.RenderText
rt.Text = "目录" & vbcrlf
rt.Style.Font= New Font("方正小标宋简体", 22, FontStyle.Bold)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
For Each s As String() In DataTables("a").getvalues("文件类别|文件类别名称")
output.show(CLNum(s(0)) & "、" & s(1))
rt = New prt.RenderText
rt.Text = CLNum(s(0)) & "、" & s(1)
rt.Style.Font= New Font("黑体", 16, FontStyle.Bold)
doc.Body.Children.Add(rt)
For Each dr As DataRow In DataTables("a").Select("文件类别名称='" & s(1) & "'","文件序号")
output.show(dr("文件序号")& "." & dr("文件名称") & "……" & dr("文件编号"))
rt = New prt.RenderText
rt.Style.Font= New Font("宋体", 16, FontStyle.Bold)
rt.Style.LineSpacing=200
Dim a As String = dr("文件序号")& "." & dr("文件名称")
Dim la As Integer = ukey.LenStrA(a)
Dim b As String = dr("文件编号")
Dim lb As Integer = ukey.LenStrA(b)
Dim sab As String = a & "".PadLeft((cct - la - lb)/2,"…") & b
rt.Text = sab
doc.Body.Children.Add(rt)
Next
Next
doc.Preview()