Foxtable(狐表)用户栏目专家坐堂 → [求助]报表打印如何设置字体


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

主题:[求助]报表打印如何设置字体

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


加好友 发短信
等级:婴狐 帖子:14 积分:248 威望:0 精华:0 注册:2013/5/30 10:57:00
[求助]报表打印如何设置字体  发帖心情 Post By:2013/6/16 20:13:00 [只看该作者]

详见附件
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:打印报表实例.rar


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/6/17 9:34:00 [只看该作者]

Dim t1 As Table = Tables("窗口2_Table1")
MainTable = t1  '选定表为当前表
Dim D As String = "( " & Vars("KJQS").Substring(0,4) & "年" & Vars("KJQS").Substring(4,2) & "月 )"
With Tables("窗口2_Table1").PrintInfo
    .Title = "产成品库存月报表"   '表标题
    .SubTitle = "                               " &D & "             HMQP 4.03-00-05A"  ' 副标题
    .PageFooter = "第[PageNo]页,共[PageCount]页"  '设置页脚
    .PaperKind = 9  '设为A4纸
    .LandScape = False ' 纵向打印
    .FitIntoPage = True ' 自动适用页宽.
    .subtitlefont = New Font("黑体",10,FontStyle.Underline)
    .titlefont = New Font("黑体",10,FontStyle.Underline)
End With
Tables("窗口2_Table1").Print(True,False)

 


 回到顶部