http://www.freeyellow.com/members/turbopeng/index.html
http://www.sdzq.com.cn/tp

dynamic SET PAPER SIZE in PowerBuilder's Powerscript
You can include setps.pbd in your project,add a global variable
"setpsize sp", COPY setpsize.dll to \windows\system or other PATH
SEACHABLE dir,
then call gf_setpsize(width,high) to set Custom
paper size,at last

rc=gf_setpsize(long(sle_w.text),long(sle_h.text))
if rc> -1 then dw_x.Object.Datawindow.print.paper.size = rc
all ok.
There is a code sample in ttps.pbl ZIP file.

tested ok on Epson LQ1600,LQ1900,star ar3240....

This is a shareware,if you like it,please register it.
register fee: US$ 19.95, cash only please.

Peng Bo
1999.5.25
my email:turbopeng@iname.com
address:Peng Bo,Computer Dept,SHANDONG SECURITIES CO.,LTD
5/F No.180 QuanCheng Rd. Jinan ShanDong China
post code:250011
