套打技巧

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

也许你会问，通过调整页边距不是一样可以的吗？当然不可以的，页边距的调整，只能影响没有指定坐标的打印对象的位置，而对于已经指定坐标的打印对象，其位置不随页边距的调整而变化，因为坐标的原点始终是页面左上角。