以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助] 预览的时是正常，打印就变成横向了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153074)

--  作者：职业技术学校 --  发布时间：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编辑过]

--  作者：有点蓝 --  发布时间：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()

--  作者：职业技术学校 --  发布时间：2020/7/30 15:38:00 --   确实如此，谢谢！困扰我很多天的问题解决了！

--  作者：职业技术学校 --  发布时间：2020/7/30 15:39:00 --   但是我想问，能不能在预览的同时打印但是要保证打印正常呢？

--  作者：有点蓝 --  发布时间：2020/7/30 15:44:00 --   不能。这个是打印控件的一个bug，目前暂时无法解决