Dim t As Table = Tables("明细账查询")
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In Doc.Body.Children
If Typeof c Is prt.RenderTable Then
For i As Integer = 0 To c.Rows.count-1
If c.cells(i,1).text Like "*计" Then
c.cells(i,1).SpanCols = 3
End If
Next
End If
Next
第一个问题:我想把以上的结果:"*计",放在3行的中间位置
Dim rt As prt.RenderText '定义一个文本对象
rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Style.FontSize = 8 '字体大小为8磅
doc.PageFooter = rt '作为页脚使用
第二个问题:想设置如上的页脚
doc.Preview() '预览
加好友 
发短信
Post By：2020/9/18 10:04:00 [显示全部帖子]
