- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]直接在窗体打印时标题居中的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107482)
-- 发布时间：2017/9/28 16:56:00
-- [求助]直接在窗体打印时标题居中的问题
这是打印预览的时候没问题，
此主题相关图片如下：1.png
此主题相关图片如下：1.png但是打印出来后标题都偏了，这个有得救吗？
此主题相关图片如下：2.png
-- 发布时间：2017/9/28 17:03:00
--
Dim t As Table = e.form.controls("Table1").Table
For Each c As Col In t.cols
c.TextAlign = TextAlignEnum.Center
Next
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview
-- 发布时间：2017/9/28 17:24:00
-- 回复：（有点甜）Dim t As Table = e.form.controls("...
完美！
另外这个行高可以调么？
我table控件中绑定的是关联表
-- 发布时间：2017/9/28 17:26:00
--
参考
Dim t As Table = e.form.controls("Table1").Table
For Each c As Col In t.cols
c.TextAlign = TextAlignEnum.Center
Next
t.SetHeaderRowHeight(50)
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview
-- 发布时间：2017/9/28 19:33:00
-- 回复：（有点甜）参考?Dim t As Table = e.f...
老师啊，
您这是设置标题行的高度啊
刚刚可能我没说明白，我需要设置表格的行高，不是行标题的高度
此主题相关图片如下：3.png
但是我这样设置，报错。
[此贴子已经被作者于2017/9/28 19:34:15编辑过]
-- 发布时间：2017/9/28 19:51:00
--
Dim t As Table = e.form.controls("Table1").Table
For Each c As Col In t.cols
c.TextAlign = TextAlignEnum.Center
Next
t.DefaultRowHeight = 50
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview
-- 发布时间：2017/10/30 16:09:00
--
老师，我输入这个代码之后，标题行都居中了，但是内容区的数据要怎样才能保持原来的右对齐呢？
-- 发布时间：2017/10/30 16:19:00
--
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As object In doc.body.children
If typeof c Is prt.RenderTable Then
For i As Integer = 0 To c.cols.count-1
c.cells(0,i).style.TextAlignHorz = prt.AlignHorzEnum.Center
Next
End If
Next
doc.Preview