以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]报表打印如何设置字体  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34812)
--  作者：1139146080
--  发布时间：2013/6/16 20:13:00
--  [求助]报表打印如何设置字体
详见附件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:打印报表实例.rar
--  作者：狐狸爸爸
--  发布时间：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)