Page 2 of 2

Opening report in full screen preview mode programmatically

Posted: Thu Dec 13, 2007 6:40 pm
by 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

Opening report in full screen preview mode programmatically

Posted: Thu Dec 13, 2007 6:41 pm
by 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.

Opening report in full screen preview mode programmatically

Posted: Thu Dec 13, 2007 9:08 pm
by 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