Source position: zreport.pas line 87
type TZRBeforePrintEvent = procedure(
Sender: TObject;
var DoPrint: Boolean
) of object;