Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教 狐爸 表打印 标题字体大小设定代码怎么写？


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

主题：请教 狐爸 表打印 标题字体大小设定代码怎么写？
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00 		请教 狐爸 表打印 标题字体大小设定代码怎么写？  发帖心情 Post By：2018/3/7 10:44:00 [只看该作者]

请教 狐爸 表打印 标题字体大小设定代码怎么写
如下
t.PrintInfo.OnlyPrintTitleOnFirstPage = False
With Tables(e.form.Name & "_Table2").PrintInfo
    .Title ="【" & vars("unitname") & "】每日资金回笼情况表"
    .subtitle = "日期" & e.Form.Controls("label1").text &  "至" & e.Form.Controls("label4").text
  '  .PageFooter = "第[PageNo]页,共[PageCount]页"
  .PageFooter = ""
  
    .RightMargin=24
  .leftMargin=24
    
    .PageFooterLine = True
    .PaperKind = 9
.FitIntoPage = True
    
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/7 11:04:00 [只看该作者]

全部属性如下

 

PrinterName
PaperSource
PaperRawKind
PaperKind
PaperWidth
PaperHeight
LeftMargin
TopMargin
RightMargin
BottomMargin
LandScape
Title
SubTitle
PageHeader
PageFooter
PageHeaderLine
PageFooterLine
SpaceAfterPagerHeader
SpaceBeforePagerFooter
SpaceAfterTitle
SpaceAfterSubtitle
PageHeaderFont
PageFooterFont
TitleFont
SubtitleFont
PageColumns
WaterMark
RepeatFixedRows
RepeatFixedCols
PrintFixedCols
ExcuteDrawCell
FitIntoPage
WrapMemo
ExtendMemoRow
OnlyPrintTitleOnFirstPage
AdjustFontSize
OnlySelectedRows
Renumber
EnableStyle
PrintTitle
PrintHeader
PrintFooter
ExtendLastCol
DirectFitIntoPage
DirectFitIntoOnePage
DirectExtendLastCol
DirectPageHeader
DirectPageFooter
DirectHighLight
DirectPageHeaderFont
DirectPrintHeader
DirectPrintFooter
 
 
 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2018/3/7 11:21:00 [只看该作者]

我是指  .Title ="【" & vars("unitname") & "】每日资金回笼情况表"  这里的字体大小

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/7 11:33:00 [只看该作者]

设置 .TitleFont = new font("宋体", 20)

 回到顶部
帅哥哟，离线，有人找我吗？
jswjyjf
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00 		  发帖心情 Post By：2018/3/7 11:37:00 [只看该作者]

太感谢了 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询