- 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=130704)
-- 发布时间：2019/1/29 16:28:00
-- [求助]点击打印预览后的打印按钮后，纸张变了
Dim doc As New PrintDoc
With doc.PageSetting
.LeftMargin = 1
.RightMargin = 1
.BottomMargin = 1
.TopMargin = 1
.Width = 217
.Height = 165
End With
‘中间是一串报表组织代码
Doc.Preview() \'预览报表
代码如上，设置了纸张的大小为：21.7*16.5CM，预览都正常，但点了预览上的打印按钮后，整体纸张都变了，好像是变成A4，然后打出来全乱套。
麻烦版主帮助，分析下原因，谢谢！
-- 发布时间：2019/1/29 16:33:00
--
打印前和打印后的图片：
...
无法上传附件，点添加附件没反应。。。
[此贴子已经被作者于2019/1/29 16:34:34编辑过]
-- 发布时间：2019/1/29 20:09:00
--
不要在预览里点击打印，这个确实是有问题的。做2个按钮，预览和打印分开
[此贴子已经被作者于2019/1/29 20:08:54编辑过]
-- 发布时间：2019/1/30 16:09:00
--
是否：【打印】按钮的代码就是直接打印，不预览？
Doc.Print() \'直接打印
这样就可以吗？
——
改了代码，直接使用doc.print()，打印出来依然会变大，并没有按我的要求大小打印。
[此贴子已经被作者于2019/1/30 16:14:43编辑过]
-- 发布时间：2019/1/30 17:41:00
--
纸张应该是超过打印机的打印范围了，把纸张缩小测试
-- 发布时间：2019/1/30 18:35:00
--
缩小了纸张也一样，当点打印按钮后，纸张自动变了。和之前这位用户说的情况一模一样：
-- 发布时间：2019/1/30 21:29:00
--
那就手动添加纸张，然后使用纸张
http://www.foxtable.com/webhelp/scr/2904.htm
-- 发布时间：2019/2/11 9:52:00
--
按上述重新设置了纸张，打印导出又变成竖的了。
doc设置代码：（不知为何无法上传图片，采用外接图片）
默认打印机的纸张，设置了纸张的大小：
打印预览是这样，正常：
点打印按钮后，生成的文件乱了，变成了竖显示，我已经代码禁止自动旋转。 Doc.AutoRotate = False
-- 发布时间：2019/2/11 9:56:00
--
上面，纸张大小，代码中，原来设置217（和纸张一致），按版主意见，改小为 213 也是一样打印变竖
-- 发布时间：2019/2/11 10:00:00
--
在打印预览界面，如果点保存按钮，生成pdf，再打印，就可以，不会变竖。
[此贴子已经被作者于2019/2/11 10:01:07编辑过]