- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 连续打印报表的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130836)
-- 发布时间：2019/2/3 17:04:00
-- 连续打印报表的问题
老师您好！
在专业报表里连续打印的问题我调试了好久都调不好，求帮助啊！
代码如下：
Dim doc As New PrintDoc \'定义一个新报表
Doc.PageSetting.LeftMargin = 10 \'设置左边距
Doc.PageSetting.RightMargin = 10 \'设置右边距
Doc.PageSetting.TopMargin = 5 \'设置上边距
Doc.PageSetting.BottomMargin = 2 \'设置下边距
doc.PageSetting.Width = 210 \'纸张宽度为210毫米
doc.PageSetting.Height = 135 \'纸张高度为135毫米
\'doc.PageSetting.Landscape = True
doc.AutoRotate = False
‘以下是主体文本代码...
以上代码生成报表预览的时候，报表设置里，会自动设置为横向，手动更改也不行，不知道是哪里出了问题，
（打印出的效果在二楼）
如果把红色代码注释掉的话，就会默认为A4纸纵向，打印正常！但不能连续啊...
此主题相关图片如下：qq图片20190202180254.png
此主题相关图片如下：qq截图20190202180146.png
此主题相关图片如下：qq截图20190202181719.png
-- 发布时间：2019/2/3 17:10:00
--
doc.PageSetting.Width = 210 \'纸张宽度为210毫米
doc.PageSetting.Height = 135 \'纸张高度为135毫米
\'doc.PageSetting.Landscape = True
doc.AutoRotate = False
上面这几行代码我调来调去，打印出的效果总是不对，求高人帮忙指点！
此主题相关图片如下：1549102452846.jpg
[此贴子已经被作者于2019/2/3 17:16:45编辑过]
-- 发布时间：2019/2/3 17:24:00
--
把打印边距设置为0、打印内容缩窄试试。
另外把打印纸张设置为默认纸张，然后打印设置保持纵向即可
-- 发布时间：2019/2/3 23:28:00
--
还是不行，
doc.PageSetting.Width = 210 \'纸张宽度为210毫米
doc.PageSetting.Height = 135 \'纸张高度为135毫米
这两行代码，如果高度超过宽度210的话，打印设置就会自动为纵向，高度小于宽度就会自动变为横向，那要如何设置为纵向呢？手动更改都似乎不起作用
增加下面这行代码的话，预览效果又不对！
doc.PageSetting.Landscape = True
打印机首选项里，方向为“纵向”，高级设置里纸张为 “我的纸张” 好像都没问题啊！
[此贴子已经被作者于2019/2/3 23:37:41编辑过]
-- 发布时间：2019/2/10 12:42:00
--
设置纸张，直接打印
http://www.foxtable.com/webhelp/scr/1189.htm
-- 发布时间：2019/2/15 12:00:00
--
还是打印的问题，
经过测试，直接打印没有问题，预览以后再打印还是不行，查过一些有相同问题的贴子说是预览页面有BUG问题，希望尽快修复啊！
[此贴子已经被作者于2019/2/15 12:00:18编辑过]
-- 发布时间：2019/2/15 12:16:00
--
以下是引用304376480在2019/2/15 12:00:00的发言：
还是打印的问题，
还是打印的问题，
经过测试，直接打印没有问题，预览以后再打印还是不行，查过一些有相同问题的贴子说是预览页面有BUG问题，希望尽快修复啊！
[此贴子已经被作者于2019/2/15 12:00:18编辑过]
预览和打印分开
| 下载信息 [文件大小：296.0 KB 下载次数：21] | |
 点击浏览该文件:嵌入专业报表.table |
| 下载信息 [文件大小：296.0 KB 下载次数：39] | |
 点击浏览该文件:嵌入专业报表.table |