我有设置打印页的纸张大小,但是加入文本之后看不到
估计跑到范围之外去了,我只增加一个文本却有两页
.x=0
.y=0
不应该会有两页
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 30
doc.PageSetting.Height = 50
Dim rt As New prt.RenderText
rt.X=0
rt.Y=0
rt.Text="DOT pos:" & e.form.Controls("DOT_POS").Text
doc.Body.Children.Add(rt)
doc.Preview() '预览
[此贴子已经被作者于2014-2-25 12:19:24编辑过]