pb 自定义纸张大小

[skidtren]

//dw_2.object.datawindow.print.custompage.length ='242'
//dw_2.object.datawindow.print.custompage.width ='102'
//dw_2.object.datawindow.print.page.size = '256'
第三行SIZE=256出错
我的是pb 11.5 xp系统，什么样才能自定义纸张
以下的也不行。也出错

Funcation int setpapersize(unit width,unit height,unit Orient) Library "setpaper.dll"
Funcation int getpapersize(ref ulong lppaper,ref ulong lppaperwidth,ref ulong lppaperlength,ref ulong lporientation) Library "setpaper.dll"

// 说明：unsignedinteger orient 方向：0：纵向，1：横向，

// 取当前打印机设置。
long ll_paper,ll_paperwidth,ll_paperlength,ll_orientation

getpapersize(ll_paper,ll_paperwidth,ll_paperlength,ll_orientation)

setpapersize(210,297,1)
// ……
dw_1.object.datawindow.print.paper.size =0
dw_1.object.datawindow.print.preview ='yes'
// ……
dw_1.object.datawindow.print.preview ='no'

setpapersize(ll_paperwidth,ll_paperlength,ll_orientation)

dw_2.print(true)

[newease]

有一些自定义纸张大小的例子，可以给你发至邮箱。

声明未在PB11环境下测试过

[skidtren]

我的邮箱 [e-mail]

[skidtren]

[Quote=引用 4 楼 softvery 的回复:]
这个语句是可以的，但是注意是paper而不是page,以下通过
dw_2.object.datawindow.print.custompage.length ='242'
dw_2.object.datawindow.print.custompage.width ='102'
dw_2.object.DataWindow.Print.Paper.Size= '256'
[/Quote]

谢谢softvery可以用了。这个单位是毫米（mm）吧。

[newease]

问题解决了吗？
例子已经发至邮箱

[softvery]

这个语句是可以的，但是注意是paper而不是怕个
dw_2.object.datawindow.print.custompage.length ='242'
dw_2.object.datawindow.print.custompage.width ='102'
dw_2.object.DataWindow.Print.Paper.Size= '256'

[softvery]

这个语句是可以的，但是注意是paper而不是page,以下通过
dw_2.object.datawindow.print.custompage.length ='242'
dw_2.object.datawindow.print.custompage.width ='102'
dw_2.object.DataWindow.Print.Paper.Size= '256'

[skidtren]

[Quote=引用 8 楼 HVIVIP 的回复:]
我做的自定义纸张大小的都直接在打印機上設的
[/Quote]

这个太麻烦了，
我已经另外想办法解决了。

[skidtren]

[Quote=引用 6 楼 newease 的回复:]
问题解决了吗？
例子已经发至邮箱
[/Quote]

你这个例子我网上老早就找到过了。有类，结构，太过复杂。
而且这个我也不赞同。里面的代码还要修改注册表，我建议不要修改注册表。

[HVIVIP]

我做的自定义纸张大小的都直接在打印機上設的

[newease]

XP自身不支持自定义纸张
所以采用注册表的方法


楼主采用动态库的方法，当然无可厚非
setpaper.dll

只要能满足你要求就行