以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]专业报表页脚时间不生效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9172)
--  作者：易服
--  发布时间：2011/3/6 22:11:00
--  [求助]专业报表页脚时间不生效


此主题相关图片如下：2011-3-6 22-01-22.png
按此在新窗口浏览图片
   Dim rx1 As New prt.RenderTable
  rx1.Cells(0,0).Text = "第[PageNo]页  共[PageCount]页                                         打印日期:[Today]"
  rx1.Style.TextAlignHorz = prt.AlignHorzEnum.Center
   rx1.CellStyle.Spacing.Bottom = 0.5 \'底端内容缩进0.5毫米
   rx1.Style.FontSize = 10 \'字体大小为8磅

  Doc.PageFooter = rx1 \'作为页脚使用
--  作者：程兴刚
--  发布时间：2011/3/7 1:29:00
--  
……打印日期： [date.now()]"
--  作者：狐狸爸爸
--  发布时间：2011/3/7 8:08:00
--  

呵呵，这样就可以去掉时间：

 

rx1.Text = "第[PageNo]页,共[PageCount]页  打印日期: [Format(Today,""yyyy-MM-dd"")]"

 

每个[]就是一个表达式，可以随便使用各种函数。
--  作者：程兴刚
--  发布时间：2011/3/8 23:51:00
--  
要取消时间的话，直接[date.today]好像也可以吧？
--  作者：狐狸爸爸
--  发布时间：2011/3/9 8:13:00
--  

呵呵，可以的，老程的方法好