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

[Jernej Kase]

This won't solve your problems, but...

I've got the same problem. Today I discovered that "enter parameter
values" dialog is only shown if the form (or crystal viewer) is not
visible.
This is crazy! I've been trying to find a workarround. The problem is
(in my case) that the dialog is displayed even if the form's visible
property is set to true and location is in invisible area.

I hope we find a workarround.

Regards,
Jernej

"Bill Nguyen" <bi************ *****@jaco.com> wrote in message news:<OE******* *******@TK2MSFT NGP12.phx.gbl>. ..

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

.SelectionFormu la = mSelection

If rptParam0 <> "NA" Then

.ParameterField Info = ParameterFields

End If

'.ShowExportBut ton = True

'.ShowPageNavig ateButtons = True

.ShowPrintButto n = 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