Opening report in full screen preview mode programmatically

[mmurdock]

Here is my code by the way.

Dim Report As StiReport = Nothing
Report = New StiReport
Report.LoadFromString(strTemplate)
Report.Dictionary.Databases.Add(New Stimulsoft.Report.Dictionary.StiMySqlDatabase(mysql_database, "Server=" + mysql_server + ";Database=" + mysql_database + ";Uid=" + mysql_username + ";Pwd=" + mysql_password + ";Allow Zero Datetime=true;"))


Report.Render(True)

Using form As Stimulsoft.Report.Render.StiPreviewForm = New Stimulsoft.Report.Render.StiPreviewForm(Report)

form.PreviewControl.ShowBookmarksPanel = False
form.PreviewControl.ShowDotMatrixModeButton = False
form.PreviewControl.ShowSave = False
form.PreviewControl.ShowOpen = False
form.PreviewControl.ShowPageNew = False
form.PreviewControl.ShowPageDelete = False
form.PreviewControl.ShowPageDesign = False
form.ShowDialog()

End Using

[Brendan]

After calling Render you need to check if the report was Stopped or "Cancelled"

You can do this by using

Code: Select all

report.IsStopped

Example

Code: Select all

If report.IsStopped Then Return

IsStopped will be True if you press the Cancel button on your Form in the report.

[mmurdock]

Thank you very much for your help. For those people that are following this here is my finished code.

Code: Select all

Dim report As New Stimulsoft.Report.StiReport()
Report.LoadFromString(strTemplate)

report.Render(True)

Using form As Stimulsoft.Report.Render.StiPreviewForm = New Stimulsoft.Report.Render.StiPreviewForm(report)

form.PreviewControl.ShowBookmarksPanel = False
form.PreviewControl.ShowDotMatrixModeButton = False
form.PreviewControl.ShowSave = False
form.PreviewControl.ShowOpen = False
form.PreviewControl.ShowPageNew = False
form.PreviewControl.ShowPageDelete = False
form.PreviewControl.ShowPageDesign = False

If report.IsStopped = True Then Return

form.ShowDialog()

End Using