你在作报表的时候用的是什么控件呀 crystal report控件的话,给你一段可能有联系的代码吧 private sub data1_VALIDATE(Action as integer,save as integer) dim msg select case action case 1,2,3,4,5,11 if save then msg=msgbox("data update?",vbyesno) if msg=vbno then save=0 end if end if tbr.buttons("delete").enabled=true end case end sub
给点代码吧
crystal report控件的话,给你一段可能有联系的代码吧
private sub data1_VALIDATE(Action as integer,save as integer)
dim msg
select case action
case 1,2,3,4,5,11
if save then
msg=msgbox("data update?",vbyesno)
if msg=vbno then
save=0
end if
end if
tbr.buttons("delete").enabled=true
end case
end sub
在打印按钮旁加一个checkbox,caption=“合并下个打印页”之类,如果勾上,就不发送printer.enddoc,如果没勾上,或已是下半页,就发送enddoc。