pb9.0 freeForm窗口打印问题
程序功能:实现学生信息的详细打印,每一页纸对应一个学生信息
问题:无论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)