以文本方式查看主题

-  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
--  
我测试没问题
--  作者:15666282205
--  发布时间:2024/9/21 8:05:00
--  
老师,代码放在按钮里提示下面的错误:
编译错误:local variable "doc" is already declared in the current blok
错误代码:Dim doc As PrintDoc = e.Form.GernatePrintDoc()
[此贴子已经被作者于2024/9/25 18:07:16编辑过]