以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印设置问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107122)
--  作者：douglas738888
--  发布时间：2017/9/21 16:27:00
--  打印设置问题

请教老师，下面代码打印SQL统计表时，SQLTable中显示的数据是靠右的，打印的时候全部数据类型都居中了，怎样解决，是否只能用专业报表才能解决

 

With Tables("总评价_Table5").PrintInfo
    .Title = "项目统计查询表"
    .PageFooter = "第[PageNo]页,共[PageCount]页"
    .PageFooterLine = True
    .PaperKind = 9 \'A4
    .FitIntoPage = True \'自动适应页宽
    .LandScape = True \'横向打印
    .LeftMargin =  5 \'左边距
    .RightMargin = 5 \'右边距
End With
Tables("总评价_Table5").Print(True,False)
--  作者：有点甜
--  发布时间：2017/9/21 16:41:00
--  
Dim t As Table = Tables("总评价_Table5")
For Each c As Col In t.cols
    If c.IsNumeric Then
        c.TextAlign  = TextAlignEnum.Right
    End If
Next
t.Print(True,False)
[此贴子已经被作者于2017/9/21 16:41:21编辑过]