Opening report in full screen preview mode programmatically

Nigel Rutter · Post by **Nigel Rutter** » Mon Nov 12, 2007 3:34 am

I need to be able to preview a report in full screen mode programmatically, I have tried the code below:

StiReport report = new StiReport();
report.Load(reportFile);
report.Render();
StiFullScreenPreviewForm.PreviewWindowState = System.Windows.Forms.FormWindowState.Maximized;
StiFullScreenPreviewForm form = new StiFullScreenPreviewForm(report);
form.Show();

But it just opens the report in a window centred in the screen about half the size of a full scrren

How can I accheive the desired result?

I am using version 2007.2.0.0 of the demo software.

Regards,
Nigel

Post by **Edward** » Mon Nov 12, 2007 6:51 am

Please use the following code:

Code: Select all

            report.Render(false);            
            using (StiFullScreenPreviewForm form = new StiFullScreenPreviewForm(report))
            {
                form.WindowState = FormWindowState.Maximized;

                form.PreviewControl.ShowBookmarksPanel = false;
                form.PreviewControl.ShowCloseButton = false;
                form.PreviewControl.ShowEditorTool = false;
                form.PreviewControl.ShowExport = false;
                form.PreviewControl.ShowFindTool = false;
                form.PreviewControl.ShowHandTool = false;
                form.PreviewControl.ShowHorScrollBar = false;
                form.PreviewControl.ShowOpen = false;
                form.PreviewControl.ShowPageControl = false;
                form.PreviewControl.ShowPageDelete = false;
                form.PreviewControl.ShowPageDesign = false;
                form.PreviewControl.ShowPageNew = false;
                form.PreviewControl.ShowPageSize = false;
                form.PreviewControl.ShowPageViewMode = false;
                form.PreviewControl.ShowPrint = false;
                form.PreviewControl.ShowSave = false;
                form.PreviewControl.ShowSelectTool = false;
                form.PreviewControl.ShowSendEMail = false;
                form.PreviewControl.ShowStatusBar = false;
                form.PreviewControl.ShowThumbsPanel = false;
                form.PreviewControl.ShowToolbar = false;
                form.PreviewControl.ShowVertScrollBar = false;
                form.PreviewControl.ShowZoom = false;
                form.PreviewControl.ThumbsPanelEnabled = false;
                form.PreviewControl.FocusOnLoad = true;

                form.ShowDialog();
                form.PreviewControl.SetZoom(report.Info.Zoom * 100);
            }

Thank you.

Nigel Rutter · Post by **Nigel Rutter** » Mon Nov 12, 2007 9:27 am

Edward,

Thank you for such a quick reply, that works perfectly.

Regards,
Nigel

Post by **Edward** » Mon Nov 12, 2007 9:30 am

Let us know if you need any help.

Thank you.

mmurdock · Post by **mmurdock** » Thu Dec 13, 2007 12:08 am

How would that code look in VB.net?

Mat

Brendan · Post by **Brendan** » Thu Dec 13, 2007 4:15 am

Code: Select all

Dim report As New Stimulsoft.Report.StiReport()
'report.Load("MyReport.mrt")
report.Render(False)
Using form As Stimulsoft.Report.Render.StiFullScreenPreviewForm = New Stimulsoft.Report.Render.StiFullScreenPreviewForm(report)
	form.WindowState = FormWindowState.Maximized
	
	form.PreviewControl.ShowBookmarksPanel = False
	form.PreviewControl.ShowCloseButton = False
	form.PreviewControl.ShowEditorTool = False
	form.PreviewControl.ShowExport = False
	form.PreviewControl.ShowFindTool = False
	form.PreviewControl.ShowHandTool = False
	form.PreviewControl.ShowHorScrollBar = False
	form.PreviewControl.ShowOpen = False
	form.PreviewControl.ShowPageControl = False
	form.PreviewControl.ShowPageDelete = False
	form.PreviewControl.ShowPageDesign = False
	form.PreviewControl.ShowPageNew = False
	form.PreviewControl.ShowPageSize = False
	form.PreviewControl.ShowPageViewMode = False
	form.PreviewControl.ShowPrint = False
	form.PreviewControl.ShowSave = False
	form.PreviewControl.ShowSelectTool = False
	form.PreviewControl.ShowSendEMail = False
	form.PreviewControl.ShowStatusBar = False
	form.PreviewControl.ShowThumbsPanel = False
	form.PreviewControl.ShowToolbar = False
	form.PreviewControl.ShowVertScrollBar = False
	form.PreviewControl.ShowZoom = False
	form.PreviewControl.ThumbsPanelEnabled = False
	form.PreviewControl.FocusOnLoad = True
	
	form.ShowDialog()
	form.PreviewControl.SetZoom(report.Info.Zoom * 100)
End Using

mmurdock · Post by **mmurdock** » Thu Dec 13, 2007 11:17 am

So using this method how would I have it show the "Preparing Report" dialog boxes that show up when a report is being rendered?

Brendan · Post by **Brendan** » Thu Dec 13, 2007 12:28 pm

Code: Select all

report.Render(True)

mmurdock · Post by **mmurdock** » Thu Dec 13, 2007 6:33 pm

OK, that worked out fine. I had put that line after "end using" and was seeing some weird stuff. Anyway, one other thing that is happening now that I'm bringing up the preview that way is that my cancel button on the report form no longer closes the report. It just brings up a blank report. Any ideas there?

Mat

mmurdock · Post by **mmurdock** » 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