- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单据套打设置的偏移量没起作用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91778)
-- 发布时间：2016/10/18 20:19:00
-- 单据套打设置的偏移量没起作用
建了个窗口，放入两个文本框，分别为水平偏移量x、垂直偏移量y；初始值均为0。
打印按钮的代码如下：
Dim doc As New PrintDoc \'定义一个报表
Dim rx As prt.RenderText \'定义一个文本对象
Dim x As Integer = e.Form.Controls("TextBox1").WriteValue \'定义水平偏移参数
Dim y As Integer = e.Form.Controls("TextBox2").WriteValue \'定义垂直偏移参数
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() \'预览报表
此主题相关图片如下：gif.gif
附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目111.table |
-- 发布时间：2016/10/18 20:31:00
--
WriteValue 是向绑定的列刷新数据用的
Dim x As Integer = val(e.Form.Controls("TextBox1").Value) \'定义水平偏移参数
Dim y As Integer = val(e.Form.Controls("TextBox2").Value) \'定义垂直偏移参数