Help with Vbscript and Crystal Reports

Hi Everyone,

I'm trying to preview a Crystal Report using VBS, however the report just opens and
immediately closes.

The line report.Preview needs to execute and then wait until the report window closes.

How do I make the preview window remain open?

Code is below.

TIA

Greg

Dim sReportName 'As String
Dim PrintToScreen 'As Boolean
Dim iNumToPrint 'As Integer
Dim View1 'As CRPEAuto.View

Dim CRapp 'As CRPEAuto.Application
Dim report 'As CRPEAuto.report
Dim Window1 'As CRPEAuto.Window
Dim reportDb 'As CRPEAuto.Database
Dim reportTables 'As CRPEAuto.DatabaseTables
Dim reportTable 'As CRPEAuto.DatabaseTable
sReportName = "d:\rptcus\reports\myrpt.rpt"
iNumToPrint = 1
'Create an Application object with the Crystal Report Engine Automation
Server.
Set CRapp = WScript.CreateObject("Crystal.CRPE.Application")

Set report = CRapp.OpenReport(sReportName)

Set reportDb = report.Database
Set reportTables = reportDb.Tables
Set reportTable = reportTables.Item(1)

report.ParameterPromptingEnabled = True

Call reportTable.SetLogOnInfo("Opennet Custom Report") 'ODBC Connection to
DBF file

report.PrintWindowOptions.HasPrintSetupButton = True
report.PrintWindowOptions.HasPrintSetupButton = True
report.PrintWindowOptions.HasExportButton = True
report.PrintWindowOptions.HasSearchButton = True
report.PrintWindowOptions.HasCancelButton = True
report.PrintWindowOptions.HasCloseButton = True
report.PrintWindowOptions.HasRefreshButton = True
report.PrintWindowOptions.HasGroupTree = True
report.PrintWindowOptions.HasNavigationControls = True
report.PrintWindowOptions.HasProgressControls = True

report.Preview

On Error Resume Next
Set CRapp = Nothing
Set report = Nothing
Set reportDb = Nothing
Set reportTables = Nothing
Set reportTable = Nothing