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


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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/11 10:22:00 [只看该作者]


 回到顶部
帅哥，在线噢！
蓝才文百
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/11 10:33:00 [只看该作者]


 回到顶部
帅哥，在线噢！
蓝才文百
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

doc.PageSetting.PaperKind = ? 这里如何写？比如我自定义纸张的名称为：1000inv
 回到顶部
帅哥，在线噢！
蓝才文百
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/11 11:39:00 [只看该作者]

以下是引用蓝才文百在2019/2/11 10:41:00的发言：
doc.PageSetting.PaperKind = ? 这里如何写？比如我自定义纸张的名称为：1000inv

 

参考

 

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
Dim i As Integer = 9
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes  '生成打印机的纸张下拉列表
    output.show(ps.papername)
    If ps.PaperName = "A4" Then
        msgbox("paperkind = " & ps.RawKind )
        i = ps.rawkind
        Exit For
    End If
Next
 回到顶部
帅哥，在线噢！
蓝才文百
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 11:40:00 [只看该作者]

好的，谢谢版主，我也多测试一下。

 回到顶部
帅哥，在线噢！
蓝才文百
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 11:47:00 [只看该作者]

“无效的PaperKind代码181。”
自定义的1000inv纸张，经查询，编号是181，使用
doc.PageSetting.PaperKind = 181
提示如上错误
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/2/11 11:53:00 [只看该作者]

以下是引用蓝才文百在2019/2/11 11:47:00的发言：
“无效的PaperKind代码181。”
自定义的1000inv纸张，经查询，编号是181，使用
doc.PageSetting.PaperKind = 181
提示如上错误

 

1、对应的打印机设置成默认打印机，或者换一个打印机设置成默认后测试；

 

2、手动添加纸张，然后设置paperKind的值；

 

3、我测试没问题。
 回到顶部
帅哥，在线噢！
蓝才文百
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：391 积分：2441 威望：0 精华：0 注册：2015/1/31 23:19:00 		  发帖心情 Post By：2019/2/11 12:14:00 [只看该作者]

能否给我发下你测试的项目，我foxtable是2018.03版本的，不知道是不是版本问题？

 回到顶部
总数 27 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询