单据套打设置的偏移量没起作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

建了个窗口，放入两个文本框，分别为水平偏移量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

主题：单据套打设置的偏移量没起作用