- 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=154501)
-- 发布时间：2020/9/16 16:12:00
-- 求助，给打印机添加自定义纸张总是出错
老师您好！
上面这个例子打开窗口总是报错，
未定义的类型 “CustomPaperSize.CustomPaperSize”
错误代码：Dim cps as new CustomPaperSize.CustomPaperSize()
如何解决？
-- 发布时间：2020/9/16 16:55:00
--
把别人提供的dll复制到foxtable安装目录，然后添加引用：http://www.foxtable.com/webhelp/topics/1936.htm
-- 发布时间：2020/9/17 11:13:00
--
添加自定义纸张以后，怎么用代码设置打印机使用 自定义好的纸张？
-- 发布时间：2020/9/17 11:31:00
--
获取纸张类型，直接使用即可
.PaperKind = 自定义纸张类型编码
-- 发布时间：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
-- 发布时间：2020/9/17 20:11:00
--
暂时没有其它解决方法