以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  页面设置标题 小计字体大一些 代码怎么写 请教?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95299)

--  作者:jswjyjf
--  发布时间: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


--  作者:有点蓝
--  发布时间:2017/1/16 9:27:00
--  
这个没有办法设置表格里某一部分内容的字体
--  作者:有点色
--  发布时间:2017/1/16 9:42:00
--  

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

 

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

 

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

 


--  作者:逛逛
--  发布时间:2017/1/16 10:49:00
--  
试试直接设置表格的小计字体,再打印

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