Opening report in full screen preview mode programmatically
Posted: Thu Dec 13, 2007 6:40 pm
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
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