- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口table控件绑定表打印后，上下边框的高低位置如何固定？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96192)
-- 发布时间：2017/2/15 11:01:00
-- [求助]窗口table控件绑定表打印后，上下边框的高低位置如何固定？
[求助]窗口table控件绑定表打印后，上下边框的高低位置如何固定？
-- 发布时间：2017/2/15 11:12:00
--
不理解你的意思，你窗口如何布局，那打印就是如何的。
截图或者上传例子看看。
-- 发布时间：2017/2/15 14:18:00
--
此主题相关图片如下：01.png
此主题相关图片如下：02.png
窗口设计中，有个“意和出库打印窗口”，其中table控件，绑定了“意和出库明细表.意和出库登记表”，
此主题相关图片如下：05.png
-- 发布时间：2017/2/15 15:44:00
--
mark 窗口页眉页脚
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As new PrintDoc
Dim ra_1 As new prt.RenderArea
Dim ra_2 As new prt.RenderArea
Dim ra_3 As new prt.RenderArea
Dim flag As Boolean = False
For Each c As object In Doc.Body.Children
If c.Gettype.name Like "*RenderText*" Then
If flag = False Then
ra_1.Children.Add(c.Clone)
Dim nrt = c.clone
nrt.height = 0
ra_2.Children.Add(nrt)
Else
ra_2.Children.Add(c.clone)
End If
ElseIf c.Gettype.name Like "*RenderTable*" Then
ra_3.Children.Add(c.Clone)
Dim nrt = c.clone
nrt.height = 0
ra_2.Children.Add(nrt)
flag = True
End If
Next
ndoc.Body.Children.Add(ra_3)
nDoc.PageHeader = ra_1 \'作为页眉使用
ndoc.PageFooter = ra_2
ndoc.Preview()
-- 发布时间：2017/2/15 15:44:00
-- 不要沉啊
不要沉啊
-- 发布时间：2017/2/15 16:41:00
--
看4楼