套打技巧
有的时候,由于更换了打印机或纸张,所有打印对象都需要统一调整位置,以适用新的打印机或纸张。
一个一个去修改对象位置是很繁琐的,为解决这个问题,直接在代码中加入偏移参数,通过调整偏移参数来实现整体移动。
例如下面的代码,如果需要在水平方向统一移动对象,调整变量X的初始值即可,而修改变量Y的初始值,即可在垂直方向统一移动对象:
Dim
doc
As New PrintDoc '定义一个报表
Dim rx As prt.RenderText
'定义一个文本对象
Dim x As
Integer = 0 '定义水平偏移参数
Dim y As Integer
= 0 '定义垂直偏移参数
Dim CurRow As Row
= Tables("员工").Current
rx = new prt.RenderText
rx.Text = CurRow("姓名")
rx.x = 51 + x
'设置坐标的时候,注意加上偏移参数
rx.y = 36 + y
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = CurRow("出生日期")
rx.x = 109 + x
rx.y = 36 + y
doc.body.Children.Add(rx)
'加入更多的打印对象....
Doc.Preview() '预览报表
也许你会问,通过调整页边距不是一样可以的吗?当然不可以的,页边距的调整,只能影响没有指定坐标的打印对象的位置,而对于已经指定坐标的打印对象,其位置不随页边距的调整而变化,因为坐标的原点始终是页面左上角。
本页地址:http://www.foxtable.com/webhelp/topics/1248.htm