Pause VBA Code while Report Displays

[kennedymr2]

I have a VBA Routine which does several functions, in a long list of code...
If i need to dispay a form, and hold code execution, i can use the following, it seems to work fine., for a form.

DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog, "Dialog"


BUT.

If i need to Preview a report, and halt code execution, the Print command as below, does not have a "dialog"...
ie,. the Msgbox comes up on top of the Report Preview...

'Now Print a Report....................
stDocName = "InvoicesPaymentsClientsCurrent"
DoCmd.OpenReport stDocName, acPreview

'Mark as billed
result = MsgBox("Mark as Final ", vbOKCancel, "Confirm action")

If result = vbOK Then


Appreciate any ideas, to halt code execution while a report previews.ie i need the client to possible print the report, before the messagebox comes up.

Regards Kennedymr2

 

[kennedymr2]

Have done a bit of fiddling and have worked it out !!!!!

Do While CurrentProject.AllReports!InvoicesPaymentsClientsCurrent.IsLoaded
DoEvents
Loop


Regards Kennedymr2