Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表,控制每页打印行数时,为什么没有办法定位


  共有2903人关注过本帖树形打印复制链接

主题:[求助]专业报表,控制每页打印行数时,为什么没有办法定位

帅哥哟,离线,有人找我吗?
5159518
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:384 积分:2706 威望:0 精华:0 注册:2015/11/27 19:09:00
  发帖心情 Post By:2020/11/6 23:35:00 [只看该作者]

现在测试的结果就是,保存为PDF文件后再打印,就不存在第一页和后面各页的位置不一致的情况,这说明打印机没有问题,系统打印机设置也没有问题

那么问题来了,为什么直接打印还是第一页和后面各页的位置不一致?

请各位大侠帮忙分析一下,究竟哪里出了问题?因为项目中不能采用保存pdf后再打印的方式来打印piao据,所以这个问题必须要解决掉才行,还请各位大侠帮忙!

 回到顶部
帅哥,在线噢!
有点蓝
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105468 积分:536325 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/7 8:53:00 [只看该作者]

回18楼,这是因为没有设置默认纸张,到打印机服务属性里添加一个240x140的纸张,然后设置为当前选中的打印机的默认纸张就可以了。

至于第一页和后面各页的位置不一致实在看不出代码有什么问题。换个打印机试试?

 回到顶部
帅哥,在线噢!
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105468 积分:536325 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/9 10:23:00 [只看该作者]

绝对定位要加上换页控制

For p As Integer = 0 To math.Ceiling(tb.Rows.Count / prs) - 1
    Dim rep As New prt.RenderEmpty '定义一个新的空对象
    rep.BreakBefore = prt.BreakEnum.Page '打印前换页
    doc.Body.Children.Add(rep ) '加入到报表中
    Dim ra As New prt.RenderArea '定义一个容器
    ra.X = 0 '指定容器水平位置
    ra.y = 24 '指定容器垂直位置
[此贴子已经被作者于2020/11/9 10:23:37编辑过]

 回到顶部
总数 23 上一页 1 2 3