 加好友  发短信
等级：八尾狐
帖子：1812
积分：12999
威望：0
精华：14
注册：2008/10/11 18:07:00
|
 Post By：2009/4/29 16:03:00 [显示全部帖子]
以下是引用狐哥在2009-4-29 15:45:00的发言：rt.width = 60
rt.x = "50%Parent.Width"
这个不好,还不如自己调试,
tr.x = 30
因表格的行数是随TABLE动态的,如设置了TR.X,则下一个Rrendertable()要设置TOP.比如:
Dim doc As New PrintDoc '定义一个报表对象
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage("logo.jpg") '设置图片
rm.Width = "Parent.Width" '宽度等于页面宽度
rm.Height = "Auto" '高度由图片大小自动决定
rm.Style.ImageAlign.StretchHorz = False '禁止图片水平拉伸
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center '居中显示
Dim rs As New prt.RenderText() '定义一个文本对象
rs.Text = "委托书"
rs.Style.Font = New Font("ARIAL", 18 , FontStyle.Bold) '设置文本对象的字体
rs.Style.TextAlignHorz = prt.AlignHorzEnum.Center '文本内容水平居中
doc.Body.Children.Add(rm) '将图片对象加入报表
doc.Body.Children.Add(rs) '将文本对象加入到表格中
Dim rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt) '将表格对象加入到报表中
rt.width = 60
rt.x = "50%Parent.Width"
...........略
Dim rt1 As New prt.RenderTable() '定义一个表格对象
rt1.Style.Spacing.Top = 20
如不设置TOP,则二个格会重叠在一起.不会按顺序rt1在rt 下面自动生成rendertable()
但有时rt有10行,有时只有一行,
则 rt 有时会与 tr1重叠,有时则空好多.
呵,不知有没有办法设置.
可以根据Rt的行数动态设置rt1的Top 啊
|
|
