| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专业报表求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46533) |
| -- 作者：longtechwj -- 发布时间：2014/2/25 12:17:00 -- 专业报表求助 我有设置打印页的纸张大小，但是加入文本之后看不到 估计跑到范围之外去了，我只增加一个文本却有两页 .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编辑过]
|
| -- 作者：longtechwj -- 发布时间：2014/2/25 14:08:00 -- 这是怎么回事呀，x=0,y=0还给我乱跑 |
| -- 作者：Bin -- 发布时间：2014/2/25 14:08:00 -- 关键还要看 e.form.Controls("DOT_POS").Text 的值 你最好上个例子.
|
| -- 作者：Bin -- 发布时间：2014/2/25 14:10:00 -- 你纸太小啦.30*50 肯定超标啦 Dim doc As New PrintDoc \'定义一个报表 doc.PageSetting.Width = 60 doc.PageSetting.Height = 120 Dim rt As New prt.RenderText rt.X=0 rt.Y=0 rt.Text="DOT pos:" doc.Body.Children.Add(rt) doc.Preview() \'预览 |
| -- 作者：longtechwj -- 发布时间：2014/2/25 14:10:00 -- 是一个数字类型的值，你把这个去掉看看也是一样的哦 [此贴子已经被作者于2014-2-25 14:10:21编辑过]
|
| -- 作者：longtechwj -- 发布时间：2014/2/25 14:11:00 -- 标签打印机的纸张，是这么小的 |
| -- 作者：Bin -- 发布时间：2014/2/25 14:13:00 -- 请看4楼 |
| -- 作者：longtechwj -- 发布时间：2014/2/25 14:27:00 -- 打印出来是空白的 |
| -- 作者：653006728 -- 发布时间：2014/2/25 14:27:00 -- 直接上例子 |
| -- 作者：longtechwj -- 发布时间：2014/2/25 14:29:00 -- 代码都放在上面了 |