Hi, I'm using the crystal object like this:


Dim objReport As Object

Set objReport = CreateObject("crystal.crystalreport")

objReport.ReportFileName = "REPORT01.rpt"
objReport.Connect = "DSN=SYSsyproces"
objReport.ReplaceSelectionFormula ("")

objReport.PrintFileName = "REPORT01.doc"
objReport.PrintFileType = crptWinWord
objReport.PrinterStopPage = -1

objReport.Destination = crptToWindow
objReport.WindowState = crptMaximized
objReport.DiscardSavedData = True

resPonse = objReport.PrintReport


when the response = .. statement is processed, I see in a flash a report on my screen; how can I get it to stay on the screen till I push the close button ??