pc = null do (_reportpreview) with m.pc pc.TopForm = .T. rl = newobject("ReportListener") rl.ListenerType = 1 rl.PreviewContainer = m.pc REPORT FORM {my report} OBJECT m.rlThere is nothing preventing you from making custom behavior the default behavior by using a wrapper as _REPORTPREVIEW. Create MYPROGRAM.PRG like this:
LPARAMETER x DO HOME() + "ReportPreview.App" WITH x x.Caption = "My Application Report Preview" x.AllowPrintFromPreview = .F. x.CanvasCount = 2 x.ZoomLevel = 3 x.TopForm = .T. RETURNNow, in your application:
_REPORTPREVIEW = "myprogram.prg" SET REPORTBEHAVIOR 90 :Customise to suit your preferences, and you're good to go.