PROCEDURE WasPrinted *-- determines whether a report was run and whether the report *-- was sent to the printer or not. *-- The following memvars must be in scope: *-- glReportWasRun: .T. if report was printed/previewed until last page *-- glToPrinter: .T. if sent to printer *-- add a variable to report which calls this procedure *-- Value to store: WasPrinted() *-- Initial value: WasPrinted() *-- Release after report: No IF VARTYPE(glReportWasRun) = "L" IF EMPTY(TAG()) *-- there's a tag so we cannot use EOF() SKIP IF EOF() glReportWasRun = .t. ENDIF SKIP -1 ELSE glReportWasRun = EOF() ENDIF IF VARTYPE(glToPrinter) = "L" glToPrinter = WVISIBLE("Printing...") ENDIF ENDIF>Friends: