以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教：字体设置问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82877)
--  作者：feiyu988
--  发布时间：2016/3/26 15:30:00
--  请教：字体设置问题
以下的代码，有3个问题请教各位老师：
1、请问打印的标题字号及颜色怎么设置，
2、打印日期显示“2016/3/26”，显示“2016年3月26日”怎么修改，
3、页脚左边是打印页数，右边是日期，是否必须中间用空格调整，能否分开设置，打印页数左对齐，打印日期右对齐？

Dim d As Date = Date.Today
With Tables("刷卡统计_table1").PrintInfo
    .Title = "消费统计表"
    .PageFooter = "第[PageNo]页,共[PageCount]页                                                打印日期:" & d
    .PageFooterLine = True
    .PaperKind = 9
    .FitIntoPage = True
End With
Tables("刷卡统计_table1").Print(True,False)
--  作者：Hyphen
--  发布时间：2016/3/26 15:53:00
--  
直接打印1和3只能这样，没有办法调整


打印日期:" & Format(d, "D")
--  作者：大红袍
--  发布时间：2016/3/27 11:36:00
--  

如果要自定义，建议自己用代码生成报表

 

http://www.foxtable.com/help/topics/1233.htm