多谢各位!
这样用比较好,可以发挥 SET REPORTBEHAVIOR 90 的优势。
oReport_obj = Createobject("ReportListener")
oPreview_obj = .Null.
Do reportpreview.App With oPreview_obj
*oPreview_obj.Caption = "预览,PgUp上一页,PgDn下一页,右键调出菜单"
oPreview_obj.topform = .F.
oPreview_obj.toolbarisvisible = .T.
oReport_obj.ListenerType = 1
oReport_obj.PreviewContainer = oPreview_obj
Report Form reportname Object oReport_obj
[此贴子已经被作者于2020-2-11 09:54编辑过]