Cannot suppress parameter prompts at runtime (Crystal Report)

[Bill Nguyen]

Report source is an SQLSERVER 2K store procedure. VB.NET application. Report
created by CR 8.5.
At runtime, I still had to click "CANCEL" to bypass the parameter prompts
before the report display correctly. Also, print option grayed out although
it was available at design time.
Thanks a million!
Bill

---------------

Below is the code:

crRptName = crRptPath & Trim(rptName)

Try

reportDocument1 .Load(crRptName )
Dim ParameterFields As CrystalDecision s.Shared.Parame terFields

Dim ParameterField0 As CrystalDecision s.Shared.Parame terField

Dim ParameterField1 As CrystalDecision s.Shared.Parame terField

Dim ParameterDiscre teValue0 As
CrystalDecision s.Shared.Parame terDiscreteValu e

Dim ParameterDiscre teValue1 As
CrystalDecision s.Shared.Parame terDiscreteValu e

ParameterFields = New CrystalDecision s.Shared.Parame terFields

ParameterField0 = New CrystalDecision s.Shared.Parame terField

ParameterField0 .ParameterField Name = "@salesdate "

ParameterField1 = New CrystalDecision s.Shared.Parame terField

ParameterField1 .ParameterField Name = "@inflag"

ParameterDiscre teValue0 = New CrystalDecision s.Shared.Parame terDiscreteValu e

ParameterDiscre teValue0.Value = rptParam0

ParameterDiscre teValue1 = New CrystalDecision s.Shared.Parame terDiscreteValu e

ParameterDiscre teValue1.Value = rptParam1

ParameterField0 .CurrentValues. Add(ParameterDi screteValue0)

ParameterField1 .CurrentValues. Add(ParameterDi screteValue1)

ParameterFields .Add(ParameterF ield0)

ParameterFields .Add(ParameterF ield1)

lblPrintWait.Te xt = "Loading report. Please wait..."

lblPrintWait.Vi sible = True

Me.Cursor = Cursors.WaitCur sor

With myCrystal.Cryst alReportViewer1

..ReportSource( ) = reportDocument1

..SelectionForm ula = mSelection

If rptParam0 <> "NA" Then

..ParameterFiel dInfo = ParameterFields

End If

'.ShowExportBut ton = True

'.ShowPageNavig ateButtons = True

..ShowPrintButt on = True

'.PrintReport()

..RefreshReport ()

End With

Me.Cursor = Cursors.Default

lblPrintWait.Vi sible = False

myCrystal.Windo wState = FormWindowState .Maximized

myCrystal.ShowD ialog()

Catch ex As Exception

MsgBox(ex.Sourc e & ": " & ex.Message)

End Try