The PreviewReport method displays the specified report in the preview window.
Syntax
PreviewReport(ReportName as String [, Values as String
[, CallBack as Object]]) as Boolean
Parameters
ReportName
The name of the report to run.
Values
The values for any ask-at-runtime conditions. If it is passed, this parameter must be specified as an XML string with the following format:
<values>
<value>First value</value>
<value>Second value</value>
</values>
Put no space between the opening and closing
<values>
<value></value>
</values>
For dates, use the format YYYY-MM-DD. For logical or Boolean fields, use "T", "True", "Y", or "Yes" for True (anything else is considered to be False). For the "is between" or "is one of" operators, separate the values with a comma (for example, "2002-01-01,2002-12-31" for a "Date is between 01/01/2002 and 12/31/2002" condition). Omit the value (that is, use an empty value element) to ignore the condition.
Example:
<values>
<value>2008-01-01,2008-12-31</value>
</values>
Callback
If you want the ask-at-runtime dialog to appear, you must set the AllowDialogs parameter to "yes". The dialog may appear behind your application's window, with the icon flashing in the Windows TaskBar. Automatically bringing the dialog to the front is a little complicated since recent Windows versions don't allow a window to bring itself to the front. Instead, use a callback object that does it. Here's an example (preceding and error handling code omitted for brevity):
loQuery.SQApplication.Parameters.AddItem('AllowDialogs', 'yes')
loCallBack = createobject('CallBack')
loQuery.SQApplication.ReportEngine.PreviewReport('Customers', , ;
loCallBack)
define class CallBack as Custom
function OnShowWindow(tnHWnd)
declare integer SetForegroundWindow in user32 integer hwnd
SetForegroundWindow(tnhWnd)
endfunc
enddefine
Return Value
True if the report was successfully previewed or False if not (in that case, check the ErrorMessage property of the ReportEngine object for the reason for failure; "*" means the user canceled in any ask-at-runtime dialog that may appear).
Example
This example previews the Customers report.
Visual FoxPro
loQuery = createobject('SQProxy.SQProxy')
loQuery.LoadProject('\MyProjects\Northwind', 'admin', 'admin')
if loQuery.ProjectLoaded
if not loQuery.SQApplication.ReportEngine.PreviewReport('Customers')
messagebox(loQuery.SQApplication.ReportEngine.ErrorMessage)
endif
endif
C#
using SFQWrapper;
using SQProxyWrapper;
using System.IO;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
SQProxy sqProxy = new SQProxy();
sqProxy.LoadProject(@"\MyProjects\Northwind");
// Wait for project to finish loading
while (!sqProxy.ProjectLoaded)
{
}
boolean result = sqProxy.SQApplication.ReportEngine.PreviewReport("Customers");
if not result {
String result = sqProxy.SQApplication.ReportEngine.ErrorMessage;
MessageBox.Show("The report failed because " + reason);
}
}
}
}
VB.NET
Imports SQProxyWrapper
Imports SFQWrapper
Module Module1
Sub Main()
Dim sqProxy As SQProxyWrapper.SQProxy = New SQProxyWrapper.SQProxy
sqProxy.LoadProject("\MyProjects\Northwind")
' Wait for project to finish loading
While Not sqProxy.ProjectLoaded
End While
Dim result As Boolean =
sqProxy.SQApplication.ReportEngine.PreviewReport("Customers")
if not result then
dim result as String = sqProxy.SQApplication.ReportEngine.ErrorMessage
MessageBox.Show("The report failed because " + reason)
end if
End Sub
End Module
See also
PrintReport | ReportEngine Object | RunReport | RunReportToFile | SQProxy Object© Stonefield Software Inc., 2024 • Updated: 02/05/20
Comment or report problem with topic