| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 居中打印 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178585) |
| -- 作者：yaojun -- 发布时间：2022/7/11 11:05:00 -- 居中打印 如下代码设为居中，可是打印预览还是靠左对齐，请问怎么修改，谢谢 Dim t As Table = e.form.controls("Table2").Table With t.PrintInfo .Title = "销售订单分析表" .LandScape = True .LeftMargin = 10 .RightMargin =10 .TopMargin =10 .BottomMargin = 10 .PageFooter = "第[PageNo]页,共[PageCount]页" .PageFooterLine = True .PaperKind = 9 .FitIntoPage = True End With t.Print(True,False) For Each cl As Col In t.Cols \'整表居中 cl.TextAlign = TextAlignEnum.Center Next |
| -- 作者：有点蓝 -- 发布时间：2022/7/11 11:47:00 -- 先打印了再设置居中有什么用。把后面3行代码放到打印前面 Dim t As Table = e.form.controls("Table2").Table For Each cl As Col In t.Cols \'整表居中 cl.TextAlign = TextAlignEnum.Center Next With t.PrintInfo |
| -- 作者：yaojun -- 发布时间：2022/7/11 13:52:00 -- 按上所述修改代码，打印效果还是靠左 |
| -- 作者：有点蓝 -- 发布时间：2022/7/11 14:09:00 -- DirectPrint才会按格式打印 |