以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印设置问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193498)
--  作者：15666282205
--  发布时间：2024/9/20 10:16:00
--  打印设置问题
老师，我设计了一个窗口，打印领料单，页面设置里无论怎样设置，实际打印宽度始终是21厘米，实际用的纸是23厘米，怎么解决这个问题？
--  作者：有点蓝
--  发布时间：2024/9/20 10:19:00
--  
添加一个23厘米的纸张：http://www.foxtable.com/webhelp/topics/2904.htm
--  作者：15666282205
--  发布时间：2024/9/20 10:33:00
--  
Dim doc As New PrintDoc()
doc.PageSetting.Width = 200  \'纸张宽度为200毫米
doc.PageSetting.Height = 170  \'纸张高度为170毫米
doc.AutoRotate = False  \'如果纸张的宽度超过高度,要加上这行代码
\'添加打印内容
doc.Preview

老师，这些代码放在哪里？
--  作者：有点蓝
--  发布时间：2024/9/20 10:39:00
--  
预览，打印按钮，如果是窗口报表，看这个：http://www.foxtable.com/webhelp/topics/1602.htm
--  作者：15666282205
--  发布时间：2024/9/20 10:53:00
--  

自定义纸张

要使用自定义纸张，只需直接设置纸张的宽度和高度即可，单位为毫米。

示例

例如使用一个10厘米宽，12厘米高的纸张：

e.Form.Page.Width = 100 \'纸张宽度为100毫米
e.Form.Page.Height = 120 \'纸张高度为120毫米
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()


老师，代码放在哪里？
--  作者：有点蓝
--  发布时间：2024/9/20 11:01:00
--  
添加一个按钮
--  作者：15666282205
--  发布时间：2024/9/20 11:12:00
--  
放在按钮里提示错误
--  作者：有点蓝
--  发布时间：2024/9/20 11:25:00
--  
什么错误？发上来看才能分析问题咯
--  作者：cd_tdh
--  发布时间：2024/9/20 12:45:00
--  
我测试没问题