设置打印机纸张

侃侃2016 2005-05-07 09:49:47
如何在PB7程序中动态设置打印机纸张的宽度和高度.
...全文
212 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lzheng2001 2005-05-11
  • 打赏
  • 举报
回复
试试打PB7最新补丁,然后用上面语句看行不行
lzheng2001 2005-05-11
  • 打赏
  • 举报
回复
http://www.tiantiansoft.com/bbs/dispbbs.asp?boardid=3&star=2&replyid=24801&id=61338&skin=0&page=1
http://www.pdriver.com/display.asp?key_id=1546
http://cpb.cn/download_info.asp?id=44
http://cpb.cn/download_info.asp?id=49
http://www.tiantiansoft.com/bbs/dispbbs.asp?boardid=3&star=2&replyid=232017&id=52583&skin=0&page=1
http://www.tiantiansoft.com/bbs/upfile/237.rar
WIN2K下:
http://www.tiantiansoft.com/bbs/upfile/237.rar
WIN98下:
http://www.tiantiansoft.com/bbs/upfile/255.zip
侃侃2016 2005-05-11
  • 打赏
  • 举报
回复
在PB7中如何设置
lzheng2001 2005-05-08
  • 打赏
  • 举报
回复
pb8,9
dw_1.Object.Datawindow.Print.Custompage.Length = "100" //高度
dw_1.Object.Datawindow.Print.Custompage.Width = "200" //宽度
dw_1.Object.Datawindow.Print.Paper.Size = "256"
dw_1.Object.Datawindow.Print.Orientation = 2 //1 横 2 竖
必须用dw_1.print()打印才能把DW的纸张设置打印出来
dw_1.Object.Datawindow.Print.DocumentName = "打印任务标题"
dw_1.print()


其他关于自定义纸张的相关链接:

http://www.tiantiansoft.com/bbs/dispbbs.asp?boardid=3&star=2&replyid=24801&id=61338&skin=0&page=1
http://www.pdriver.com/display.asp?key_id=1546
http://cpb.cn/download_info.asp?id=44
http://cpb.cn/download_info.asp?id=49
http://www.tiantiansoft.com/bbs/dispbbs.asp?boardid=3&star=2&replyid=232017&id=52583&skin=0&page=1
http://www.tiantiansoft.com/bbs/upfile/237.rar
WIN2K下:
http://www.tiantiansoft.com/bbs/upfile/237.rar
WIN98下:
http://www.tiantiansoft.com/bbs/upfile/255.zip


freegoodboy 2005-05-08
  • 打赏
  • 举报
回复
给你几个纸张设置的结果:使用的是ddlb控件的selectionchanged,dw_print为打印预览的数据窗口
CHOOSE CASE trim(ddlb_paper_size.text)
CASE 'A3 297 x 420 毫米'
dw_print.Modify("DataWindow.Print.Paper.Size='8'")
CASE 'A4 210 x 297 毫米'
dw_print.Modify("DataWindow.Print.Paper.Size='9'")
CASE 'A5 148 x 210 毫米'
dw_print.Modify("DataWindow.Print.Paper.Size='11'")
CASE 'B4 250 x 354 毫米'
dw_print.Modify("DataWindow.Print.Paper.Size='12'")
CASE 'B5 182 x 257 毫米'
dw_print.Modify("DataWindow.Print.Paper.Size='13'")
CASE ELSE
dw_print.Modify("DataWindow.Print.Paper.Size='9'")
END CHOOSE
侃侃2016 2005-05-08
  • 打赏
  • 举报
回复
在PB7 中怎么设
侃侃2016 2005-05-07
  • 打赏
  • 举报
回复
有人吗?

1,077

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧