动态修改线条的top属性，然后打印，然后再设置回来。
如
e.Form.Controls("Line1").Top += 20
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
e.Form.Controls("Line1").Top -= 20
加好友 
发短信
Post By：2015/11/30 17:58:00 [显示全部帖子]
