pb9.0 freeForm窗口打印问题

zhaodonglei 2010-01-16 01:58:11
程序功能:实现学生信息的详细打印,每一页纸对应一个学生信息
问题:无论dw_1里有多少条记录,都只打印一条记录
程序代码:
代码说明:dw_1是学生信息的grid型数据窗口,dw_2是freeform型数据窗口
For ll_i = 1 to dw_1.rowcount()
ll_find = dw_2.insertrow(0)
dw_2.Object.t_title.Text = '学生详细信息'
dw_2.object.name[ll_find] = dw_1.object.name[ll_i]
dw_2.object.sex[ll_find] = dw_1.object.sex[ll_i]
Next
/*设置打印机*/
if PrintSetupPrinter() = 0 then
return
end if
long Job
/*开始打印*/
Job = PrintOpen( )
dw_2.object.datawindow.print.page.range = "1"
if PrintDataWindow(Job, dw_2)= 1 then
MessageBox('提示信息', '打印成功')
else
MessageBox('提示信息', '打印失败')
return
end if
PrintClose(Job)
...全文
68 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jlwei888 2010-01-16
  • 打赏
  • 举报
回复
dw_2.object.datawindow.print.page.range = "1"

唉,你指定了打印页! 所以只能打第1页!
jlwei888 2010-01-16
  • 打赏
  • 举报
回复
直接DW_2.print()呢
发帖
DataWindow

603

社区成员

PowerBuilder DataWindow
社区管理员
  • DataWindow社区
加入社区
帖子事件
创建了帖子
2010-01-16 01:58
社区公告
暂无公告