Foxtable(狐表)用户栏目专家坐堂 → 求助,给打印机添加自定义纸张总是出错


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

主题:求助,给打印机添加自定义纸张总是出错

帅哥哟,离线,有人找我吗?
304376480
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3760 威望:0 精华:0 注册:2017/9/7 15:20:00
求助,给打印机添加自定义纸张总是出错  发帖心情 Post By:2020/9/16 16:12:00 [只看该作者]

老师您好!

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0

上面这个例子打开窗口总是报错,
未定义的类型 “CustomPaperSize.CustomPaperSize”
错误代码:Dim cps as new CustomPaperSize.CustomPaperSize()

如何解决?



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/16 16:55:00 [只看该作者]

把别人提供的dll复制到foxtable安装目录,然后添加引用:http://www.foxtable.com/webhelp/topics/1936.htm

 回到顶部
帅哥哟,离线,有人找我吗?
304376480
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3760 威望:0 精华:0 注册:2017/9/7 15:20:00
  发帖心情 Post By:2020/9/17 11:13:00 [只看该作者]

添加自定义纸张以后,怎么用代码设置打印机使用 自定义好的纸张?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/17 11:31:00 [只看该作者]

获取纸张类型,直接使用即可

.PaperKind = 自定义纸张类型编码

 回到顶部
帅哥哟,离线,有人找我吗?
304376480
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3760 威望:0 精华:0 注册:2017/9/7 15:20:00
  发帖心情 Post By:2020/9/17 18:27:00 [只看该作者]


老师您好! 打印的时候总是有一个问题,感觉不太方便,


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200917181750.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20200917181759.jpg
图片点击可在新窗口打开查看

就是在打印单据的时候需要手动设置定义纸张(图1),如果设置不正确那么打印出来效果就像图二那样横着出,调整以下代码也没效果!

如果打印机还需要打印其它纸张A4的文档的话,又需要手动调节(图1)的纸张规格,用完以后还需要手动调回来,比较麻烦,有没有好的解决方法?

Dim doc As New PrintDoc '定义一个新报表
'doc.PageSetting.PaperKind = 11 '纸张类型改为B5
'doc.PageSetting.Landscape = True 
doc.PageSetting.Width = 210 '纸张宽度为毫米
doc.PageSetting.Height = 140 '纸张高度为毫米
Doc.PageSetting.LeftMargin = 10'设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 10 '设置上边距
Doc.PageSetting.BottomMargin = 10 '设置下边距
Doc.AutoRotate = False


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/17 20:11:00 [只看该作者]

暂时没有其它解决方法

 回到顶部