套打技巧

有的时候,由于更换了打印机或纸张,所有打印对象都需要统一调整位置,以适用新的打印机或纸张。
一个一个去修改对象位置是很繁琐的,为解决这个问题,直接在代码中加入偏移参数,通过调整偏移参数来实现整体移动。
例如下面的代码,如果需要在水平方向统一移动对象,调整变量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