Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]点击打印预览后的打印按钮后，纸张变了


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

主题：[求助]点击打印预览后的打印按钮后，纸张变了
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		[求助]点击打印预览后的打印按钮后，纸张变了  发帖心情 Post By：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，然后打出来全乱套。
麻烦版主帮助，分析下原因，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/1/29 16:33:00 [显示全部帖子]

打印前和打印后的图片：
...
无法上传附件，点添加附件没反应。。。
[此贴子已经被作者于2019/1/29 16:34:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/1/30 16:09:00 [显示全部帖子]

是否：【打印】按钮的代码就是直接打印，不预览？

Doc.Print() '直接打印

这样就可以吗？

——
改了代码，直接使用doc.print()，打印出来依然会变大，并没有按我的要求大小打印。
[此贴子已经被作者于2019/1/30 16:14:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/1/30 18:35:00 [显示全部帖子]

缩小了纸张也一样，当点打印按钮后，纸张自动变了。和之前这位用户说的情况一模一样：
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 9:52:00 [显示全部帖子]

按上述重新设置了纸张，打印导出又变成竖的了。
doc设置代码：（不知为何无法上传图片，采用外接图片）
图片点击可在新窗口打开查看

默认打印机的纸张，设置了纸张的大小：
图片点击可在新窗口打开查看

打印预览是这样，正常：
图片点击可在新窗口打开查看

点打印按钮后，生成的文件乱了，变成了竖显示，我已经代码禁止自动旋转。 Doc.AutoRotate = False
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 9:56:00 [显示全部帖子]

上面，纸张大小，代码中，原来设置217（和纸张一致），按版主意见，改小为 213 也是一样打印变竖

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


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 10:00:00 [显示全部帖子]

在打印预览界面，如果点保存按钮，生成pdf，再打印，就可以，不会变竖。
[此贴子已经被作者于2019/2/11 10:01:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 10:31:00 [显示全部帖子]

纸张已经按链接所提示的设置了的
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 10:41:00 [显示全部帖子]

doc.PageSetting.PaperKind = ? 这里如何写？比如我自定义纸张的名称为：1000inv
 回到顶部
帅哥哟，离线，有人找我吗？
蓝才文百
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 11:37:00 [显示全部帖子]

临时解决办法：保存pdf再打印，没办法的办法。
'打印問題待解決, 20190211改为另存为pdf,再打开打印
Doc.SavePDF(ProjectPath & "inv_print.pdf")
Dim Proc As New Process '打开PDF文件
Proc.File = ProjectPath & "inv_print.pdf"
Proc.Start()
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询