Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 预览的时是正常，打印就变成横向了


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

主题：[求助] 预览的时是正常，打印就变成横向了
帅哥哟，离线，有人找我吗？
职业技术学校
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1819 威望：0 精华：0 注册：2019/5/13 12:37:00 		[求助] 预览的时是正常，打印就变成横向了  发帖心情 Post By：2020/7/30 12:08:00 [只看该作者]

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 80 '纸张宽度为100毫米
doc.PageSetting.Height = 60 '纸张高度为120毫米
doc.AutoRotate = False
Dim rt As New prt.RenderText
rt.Text = "海洋科技易彬"
doc.Body.Children.Add(rt)
doc.Preview() '预览

这是测试代码

图片点击可在新窗口打开查看此主题相关图片如下：预览的是这样的.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：点打印就变成这样了.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20200730125016.jpg
图片点击可在新窗口打开查看




[此贴子已经被作者于2020/7/30 12:50:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 12:55:00 [只看该作者]

不要在预览窗口里点击打印，另外添加一个打印按钮，复制预览的代码改为直接打印

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 80 '纸张宽度为100毫米
doc.PageSetting.Height = 60 '纸张高度为120毫米
doc.AutoRotate = False
Dim rt As New prt.RenderText
rt.Text = "海洋科技易彬"
doc.Body.Children.Add(rt)
doc.print() 
 回到顶部
帅哥哟，离线，有人找我吗？
职业技术学校
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1819 威望：0 精华：0 注册：2019/5/13 12:37:00 		  发帖心情 Post By：2020/7/30 15:38:00 [只看该作者]

确实如此，谢谢！困扰我很多天的问题解决了！

 回到顶部
帅哥哟，离线，有人找我吗？
职业技术学校
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：186 积分：1819 威望：0 精华：0 注册：2019/5/13 12:37:00 		  发帖心情 Post By：2020/7/30 15:39:00 [只看该作者]

但是我想问，能不能在预览的同时打印但是要保证打印正常呢？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/30 15:44:00 [只看该作者]

不能。这个是打印控件的一个bug，目前暂时无法解决

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询