以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 连续打印报表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130836) |
||||||||
-- 作者:304376480 -- 发布时间: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截图20190202180146.png |
||||||||
-- 作者:304376480 -- 发布时间: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、打印内容缩窄试试。 另外把打印纸张设置为默认纸张,然后打印设置保持纵向即可
|
||||||||
-- 作者:304376480 -- 发布时间: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
|
||||||||
-- 作者:304376480 -- 发布时间: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编辑过]
预览和打印分开
|