＋设为首页 ＋添加到收藏夹
pb6.5 部分脚本如下：
string str_temp
integer li_temp
long ll_row
long job
//打印什么
job= printopen()
li_temp = ddlb_printwhat.FindItem( ddlb_printwhat.text, 0 ) - 1
messagebox("what",string(li_temp))
idw_toprint.object.datawindow.print.page.rangeinclude = li_temp
//打印范围
if rb_pagearrangeall.checked then //全部页
str_temp = ""
elseif rb_pagearrangecurrent.checked then //当前页
ll_row = idw_toprint.GetRow( )
idw_toprint.object.datawindow.print.preview = "Yes"
//设成预览模式
str_temp = idw_toprint.Describe( "evaluate( Page( ), " + String( ll_row ) +" ) " ) //计算页码
idw_toprint.object.datawindow.print.preview = "No"
elseif rb_pagearrange.checked then //输入范围
str_temp = sle_pagearrange.text
end if
idw_toprint.object.datawindow.print.page.range = str_temp
//副本份数
if len( em_copies.text ) > 0 then
idw_toprint.object.datawindow.print.copies= Integer( em_copies.text )
end if
//纸的方向
li_temp = 0
if rb_landscape.checked then
li_temp = 1
elseif rb_portrait.checked then
li_temp = 2
end if
idw_toprint.object.datawindow.print.orientation = li_temp
//纸的尺寸
li_temp = ddlb_paper.FindItem( ddlb_paper.Text, 0 )
//第li_temp项
idw_toprint.object.datawindow.print.paper.size = li_temp
if IsValid(idw_toprint)then
job=PrintOpen()
PrintDataWindow(job,idw_toprint)
PrintClose(job)
closewithreturn( parent,1 )
end if
可能你的数据窗口有隐藏字段
确定数据窗口里没有隐藏字段
control + A全选看看是否有超边的字段
control + A全选看看是否有超边的字段
