Foxtable(狐表)用户栏目专家坐堂 → 页面设置标题 小计字体大一些 代码怎么写 请教?


  共有1829人关注过本帖树形打印复制链接

主题:页面设置标题 小计字体大一些 代码怎么写 请教?

帅哥哟,离线,有人找我吗?
jswjyjf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2552 积分:20057 威望:0 精华:0 注册:2012/5/19 11:57:00
页面设置标题 小计字体大一些 代码怎么写 请教?  发帖心情 Post By:2017/1/16 9:20:00 [只看该作者]

请教  页面设置标题 小计字体大一些 代码怎么写 请教?
Dim t As Table = Tables(e.form.Name & "_Table1")
t.PrintInfo.OnlyPrintTitleOnFirstPage = False
With Tables(e.form.Name & "_Table1").PrintInfo
    .Title = e.Form.Controls("combobox1").value
    .subtitle = "日期" & e.Form.Controls("startdate").value &  "至" & e.Form.Controls("enddate").value 
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9
    .FitIntoPage = True
''
.LeftMargin = 10 '设置左边距
.RightMargin = 10 '设置右边距
.TopMargin = 10 '设置上边距
.BottomMargin = 10 '设置下边距
''

End With


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110582 积分:562806 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/16 9:27:00 [只看该作者]

这个没有办法设置表格里某一部分内容的字体

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/16 9:42:00 [只看该作者]

小计的字体,是无法设置的。

 

.TitleFont = new font("宋体", 20)
.SubtitleFont = new font ("宋体", 18)

 

如果你要个性化设置,就必须自己生成 http://www.foxtable.com/webhelp/scr/1233.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2017/1/16 10:49:00 [只看该作者]

试试直接设置表格的小计字体,再打印

Tables("表名").Grid.Styles("Subtotal0").Font = New Font("宋体",16)

 回到顶部