OnPrintExit Event

[jas]

Is there any way to get this event to fire when exiting a "Print Preview" without printing the report? I need to run a script that opens an xdialog box when a particular report is closed after Preview, whether report is printed or not. When I print the report, the xdialog box opens. When I close the report by using "Exit Preview" or clicking the "X", the report closes, but the xdialog box does not appear.

In AlphaFive V5, this works:


'Prompt user whether to print, or preview the layout. Set default to Preview
prompt_result = ui_get_print_or_preview("Preview ")
IF prompt_result = "Print" THEN

:Report.Print("TestReport",query.filter,query.order)

ELSE IF prompt_result = "Preview" THEN

:Report.Preview("TestReport",query.filter,query.order)

END IF
script_play_local("NewScript")


The last script "script_play_local("NewScript")" doesn't run until the report is either printed or closed. But it runs immediately as the report is previewed in V8. So, Now I have this Xdialog open in front of my report. Not good.

If anyone has any suggestions on how to accomplish this, I sure would appreciate it.

Thanks
Jim

[G Gabriel]

Re: OnPrintExit Event

Jim:
I haven't tried this but it's worth a try:

IF prompt_result = "Print" THEN
:Report.Print("TestReport",query.filter,query.order)
ELSE IF prompt_result = "Preview" THEN
:Report.Preview("TestReport",query.filter,query.order)
END IF
retry:
while is_object("testReport")
sleep(1) 'change time as you wish
goto retry
end while
script_play_local("NewScript")

[jas]

Re: OnPrintExit Event

Thanks Al:
I did try this and it appeared that Alpha locked up in a loop and I could not close the report.

Jim

[Peter.Greulich]

Re: OnPrintExit Event

I just put the following code in a report's OnPrintExit event and the ui pops up after the preview is closed.

vTitle1 = "Mark Records" 
vMsg1 =  "This will mark all the records for exporting."
ui_msg_box(vTitle1, vMsg1,UI_INFORMATION_SYMBOL)

[jas]

Re: OnPrintExit Event

Peter:

I also tried this. If you have the report open in Design Mode and click on the Preview icon to preview the report then exit the preview, this will work. With the report closed, if you double-click the report or call the report from a script to open it in Preview, then exit, this will not work. Tried it on an AlphaSports report just to make sure.

Jim

[G Gabriel]

Re: OnPrintExit Event

Peter:
I think the discrepancy is because James is running a script from the code tab (running a global script locally).
I guess the answer would be:
IF prompt_result = "Print" THEN
:Report.Print("TestReport",query.filter,query.order)
ELSE IF prompt_result = "Preview" THEN
:Report.Preview("TestReport",query.filter,query.order)
END IF
'instead of script_play_local("NewScript") put the script itself here.

[Peter.Greulich]

Re: OnPrintExit Event

Jim,

My report ran from a button on a form.

[Peter.Greulich]

Re: OnPrintExit Event

Gabe,

My code is in the OnPrint Exit event. The "if-then-else code that you & Jim are using is not. Right?

[G Gabriel]

Re: OnPrintExit Event

My code is in the OnPrint Exit event. The "if-then-else code that you & Jim are using is not. Right?

No, that part is in the OnPrint Exit (that's my understanding from what James is saying), but the next part of the script calls a global script to be run locally. I think that's the part that is causing this problem and I am suggesting that he puts the actual script (the one in the code tab) in the OnPrint Exit event of the report.

[G Gabriel]

Re: OnPrintExit Event

Translating to English:
script_play_local("NewScript") is in the OnPrint Exit but it fires before exiting.

Suggestion:
Take the contents of "NewScript" and put it in place of this line of code.

Implied herein is a bug in either:
OnPrint Exit and/or
script_play_local

[Peter.Greulich]

Re: OnPrintExit Event

I think you may be right about the script_play_local. But if the "if-then-else" code is in the OnPrintExit, he is then telling the report to preview or print again. Seems like that would be an endless loop.

[jas]

Re: OnPrintExit Event

The code I want to run is simply a script to open an Xdialog Box and it is in the OnPrint Exit event of the Report. If I do as Peter did...put a button on a form to open the report, the script will run properly. The problem is this:
Ultimately this report will be run from QReportBuilder and forms are excluded on this stripped down version of Alpha, so I have to call the report from an xdialog box, instead of a form.
Jim

[G Gabriel]

Re: OnPrintExit Event

I mis-spoke:
The first part brings up a dialog box: preview/print.
I don't know where that part is, could be from anywhere and now I am not even sure which part James has in the OnPrint Exit? if any?

[Peter.Greulich]

Re: OnPrintExit Event

I have to call the report from an xdialog box, instead of a form.

So you are saying that when you run the report from xdialog, the OnPrintExit fires immediately on preview, even IF you put the xdialog code there w/o using script_play_local(). Correct?

[G Gabriel]

Re: OnPrintExit Event

James:
Read you last reply after posting mine.

1-You bring up an xdl that asks if you want to print or preview
2-If print is chosen, you print the report and then the "NewScript" runs as expected. In reality both run at the same time but since printing goes to your printer there nothing on the screen but the xdlg brought up by NewScript
3-On the other hand, when you preview, you see the preview window as well as the xdlg.

Again, there is a bug in either the OnPrint Exit or script_play_local. To find out which, I would try first to put the actual script in the OnPrint exit, if it works, the bug is in script_play_local, if it does not, who knows. In either case, I'd submit a bug report.