以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]如何判定打印是否超页  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176748)

--  作者：2900819580 --  发布时间：2022/4/25 15:50:00 --  [求助]如何判定打印是否超页 rtb = New prt.RenderTable \'定义一个表格对象 rt = New prt.RenderText \'定义一个文本对象 rt.Text = "检验员：" & r("检验员") & " _ " & r("修改日期")\'设置文本对象的内容 rt.Style.Font = New Font("宋体", 11, FontStyle.Regular) \'设置字体 rtb.Cells(0, 0).RenderObject = rt \'将文本对象放置在单元格中 Dim lms() As String = {"", "主管:", "点收人:" ｝ For i As Integer = 1 To lms.Length - 1 \' lm As String In lms     rt = New prt.RenderText \'定义一个文本对象     rt.Text = lms(i)\'设置文本对象的内容     rt.Style.Font = New Font("宋体", 11, FontStyle.Regular) \'设置字体     rtb.Cells(0, i).RenderObject = rt \'将文本对象放置在单元格中 Next If 没有超过一页 Then doc.Body.Children.Add(rtb) \'将表格对象加入到报表中 Else doc.PageFooter = rtb End

--  作者：有点蓝 --  发布时间：2022/4/25 15:54:00 --   没有办法判断

--  作者：2900819580 --  发布时间：2022/4/26 0:31:00 --   dt.DataCols("不良率").SetFormat("0.00%") 不良率是用SETFormat设置出来的，打印的时候还是显示数字，如何处理？

--  作者：有点蓝 --  发布时间：2022/4/26 8:28:00 --   比如：rt.Text = format(r("不良率"),"0.00%")