请教：字体设置问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：字体设置问题

共有1751人关注过本帖树形打印复制链接主题：请教：字体设置问题

feiyu988

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：278 积分：2909 威望：0 精华：0 注册：2013/8/28 22:21:00

请教：字体设置问题 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/3/26 15:53:00 [只看该作者]

直接打印1和3只能这样，没有办法调整

打印日期:" & Format(d, "D")

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/27 11:36:00 [只看该作者]

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

主题：请教：字体设置问题