1. In your ISD application, right click the [Shared] folder and select [New Page]. In the "New Page" dialog, select the [Master Page] template and name the page "ReportViewer."

   

2. Build and then close the application.
    
3. Now we need to add the "CR Viewer" component to the page including the necessary declarations for the code-behind and references for the project. The easiest way to do this is with VS.NET. So, open VS.NET, open your project, and select [Rebuild] from the [Build] menu. You need to rebuild the project in VS.NET first before proceeding in order to resolve some class reference issues.
    
4. Open the "ReportViewer.aspx" page in [Design] view. From the VS.NET [Toolbox - Web Forms] tab, drag and drop a "CrystalReportViewer" component onto the page at the position marked with a red rectangle below (i.e. the main content area).

   

   NOTE: When the "CrystalReportViewer" component is added to the page, the associated class declaration is added to the "ReportViewer.gen.aspx.vb" code-behind class and several CR namespace references are added to the project. In the project [References] node of the "Solution Explorer", the three "CrystalDecisions.Enterprise.Xxx" references can be removed.
    
5. Click on the "CrystalReportViewer" component and go to [Properties]. Change the following properties to "False": [DisplayGroupTree], [EnableDatabaseLogonPrompt], and [EnableParameterPrompt]. The property changes will be explained in the "Monopoly - Setting Various Properties" section.
    
6. Switch to the [HTML] view and clean up the code to look like this:

   

   NOTE: Be sure to remove the width and height attributes in the "CrystalReportViewer" component tag if they appear.
    
7. Open the "ReportViewer.safe.aspx.vb" code-behind safe class and add the "CrystalReportViewer" component class declaration as follows:

   
   Public Class ReportViewer
       Inherits ReportViewerGen
       Public Shadows WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer
    

   NOTE: This declaration allows us to write code in the safe class that references the "CrystalReportViewer" component.
    
8. Rebuild the project, exit VS.NET, go back to ISD, and open the application.
    
9. Open the "ReportViewer" page and switch to the [ASPX] view. Highlight and copy the following code that was previously set up in VS.NET:

   

   Switch to [HTML] view and paste the code at the top above the "GEN:TEMPLATE" tag.

   Switch back to the [ASPX] view and highlight and copy the following code:

   

   Switch to the [HTML] view and paste over (i.e. replace) the following code:

   

   Now you may be saying to yourself, "Wait a minute, I just did that last part in VS.NET." Well, yes you did, but ISD uses an HTML file as a template to build the aspx page whereas VS.NET does not. So, we need to copy the "CrystalReportViewer" component tag to the HTML file in order for ISD to regenerate the "ReportViewer" aspx page properly in the future.
    
10. Almost done, there's a couple more steps to make sure that Iron Speed Designer compiles the application properly when using the Visual Basic (vbc.exe) compiler. Copy the following files to your application's "Bin" directory: "CrystalDecisions.CrystalReports.Engine.dll", "CrystalDecisions.ReportSource.dll", "CrystalDecisions.Shared.dll", "CrystalDecisions.Web.dll". In the default installation of CR 10 DE, these files are located at "C:\Program Files\Common Files\Crystal Decisions\2.5\managed."
     
11. In your application's root directory, open the file "CompileApplication.rsp" in a text editor. Append the names of the four Crystal Decisions DLL's to the "/reference:" line as follows (comma delimited, no spaces):

    
    /reference:BaseClasses.dll, BaseClasses.Web.Controls.dll, System.dll,System.Data.dll, System.Drawing.dll, System.Web.dll, System.Xml.dll, CrystalDecisions.CrystalReports.Engine.dll, CrystalDecisions.ReportSource.dll, CrystalDecisions.Shared.dll, CrystalDecisions.Web.dll
     

12. That's it. You're done with creating the viewer page, but now we need to make it work. So let's start looking through the microscope to view some tiny code.

Private Sub MyPage_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    If (Not Me.IsPostBack) Then
        Dim rptFile As String = Request.QueryString.Item("ReportFile")
        oRpt.Load(Request.MapPath(Request.ApplicationPath) & "\Reports\" & rptFile)
        CrystalReportViewer1.ReportSource = oRpt
        ...
 

Dim conStr As String
Dim userID As String
Dim pw As String
Dim serverName As String
Dim dbName As String
Dim i As Integer
Dim j As Integer

' Get db conn settings
conStr = System.Configuration.ConfigurationSettings.AppSettings.Item("Database[YourDatabaseName]1")
' Get user id
i = InStr(1, conStr, "User Id") + 8
j = InStr(i, conStr, ";")
userID = Mid(conStr, i, j - i)
' Get pw
i = InStr(1, conStr, "Password") + 9
j = conStr.Length + 1
pw = Mid(conStr, i, j - i)
' Get server name
i = InStr(1, conStr, "Data Source") + 12
j = InStr(i, conStr, ";")
serverName = Mid(conStr, i, j - i)
' Get db name
i = InStr(1, conStr, "Database") + 9
j = InStr(i, conStr, ";")
dbName = Mid(conStr, i, j - i)

' Set DB login info
oRpt.SetDatabaseLogon(userID, pw, serverName, dbName)

Dim rsfVar As String = Request.QueryString.Item("RSFVar")
If oRpt.RecordSelectionFormula = "" Then
   oRpt.RecordSelectionFormula = "{table.field} = '" & rptVar & "'"
Else
   oRpt.RecordSelectionFormula += " and {table.field} = '" & rptVar & "'"
End If

oRpt.SetParameterValue("ParamName", CStr(Session("VarName")))

Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
If (Not Me.IsPostBack) Then
    ...
    ...
   Session("ReportDoc") = oRpt
Else
   oRpt = CType(Session("ReportDoc"), CrystalDecisions.CrystalReports.Engine.ReportDocument)
   CrystalReportViewer1.ReportSource = oRpt
End If
 

1. Build and close the application in ISD.
    
2. Open VS.NET, open your project, and open the "ReportViewer.safe.aspx.vb" code-behind safe class file.
    
3. Put the following line at the top of the page:

   
   Imports CrystalDecisions.CrystalReports.Engine
    

4. In the editor's [Class Name] drop-down-listbox, select the (Page Events) option:

   

5. In the editor's [Method Name] drop-down-listbox, select the [Error] option:

   

6. Enter the following code in the [Page_Error] event:

   
   Private Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Error
   
       Dim ex As Exception
   
       'Retrieve the last exception that occured
       ex = Server.GetLastError()
       Server.ClearError()
   
       ' Check if the exception is a Crystal Reports EngineException
       If TypeOf (ex) Is EngineException Then
           ' Cast the exception into an EngineException object
           Dim exEngine As EngineException = CType(ex, EngineException)
   
           ' Check the type of error and handle accordingly
           Select Case exEngine.ErrorID
               Case EngineExceptionErrorID.DataSourceError
                   Response.Write("An error has occurred while connecting to the database.")
               Case EngineExceptionErrorID.ExportingFailed
                   Response.Write("An error occured while exporting the report.")
               Case EngineExceptionErrorID.MissingParameterFieldCurrentValue
                   Response.Write("At least one of the parameter fields is missing a current value.")
               Case EngineExceptionErrorID.LogOnFailed
                   Response.Write("Incorrect Logon Parameters. Check your user name and password.")
               Case EngineExceptionErrorID.OutOfLicense
                   Response.Write("There are no more licenses available. Contact your network administrator.")
               Case Else
                   Response.Write("An undocumented error occurred.")
           End Select
       Else 'Display the error message
           Response.Write(ex.Message)
       End If
   
   End Sub
   
   

   
   NOTE: Of course you can be more creative with how you display the error messages.
    
7. Build and close the application in VS.NET.

• The "If (Not Me.IsPostBack) Then" structure
• The "CrystalReportViewer1.ReportSource = oRpt" statements

    ...
    ...
    Response.ClearContent()
    Response.ClearHeaders()
    Response.ContentType = "application/pdf"

    ' Export the document to PDF
    oRpt.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, False, "")
    Response.Flush()
    Response.Close()

End Sub
 

1. Open the following file: "C:\Program Files\Common Files\Crystal Decisions\2.5\CrystalReportViewers10\js\export.js" (default location for CR 10 DE) in your favorite JavaScript editor.
    
2. Find the following code in the getExportDialog() function:

   

3. Remove the "checked" attribute from "radio2" and place it above in the "radio1" input type as such:

   

4. Save and close the file.
    
5. Open the strings_en.js (for English) file in the same directory and find the following code:

   
   var L_PrintStep1 = "1. In the next dialog that appears, select the \"Open this file\" option and click the OK button.";
    

   And change the text to read:

   
   var L_PrintStep1 = "1. Click the OK button below and the report will be displayed in Acrobat Reader.";
   
   

...
Dim uu As New UserUtils
oRpt.SummaryInfo.ReportAuthor = uu.UserID
...
CrystalReportViewer1.ReportSource = oRpt
...

Private Sub MyPage_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
    Dim oRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    If (Not Me.IsPostBack) Then
        ' Additional initialization can be performed here.
        Dim rptFile As String = Request.QueryString.Item("ReportFile")
        oRpt.Load(Request.MapPath(Request.ApplicationPath) & "\Reports\" & rptFile)

        Dim conStr As String
        Dim userID As String
        Dim pw As String
        Dim serverName As String
        Dim dbName As String
        Dim i As Integer
        Dim j As Integer

        ' Get db conn settings
        conStr = System.Configuration.ConfigurationSettings.AppSettings.Item("DatabaseNorthwind1")
        ' Get user id
        i = InStr(1, conStr, "User Id") + 8
        j = InStr(i, conStr, ";")
        userID = Mid(conStr, i, j - i)
        ' Get pw
        i = InStr(1, conStr, "Password") + 9
        j = conStr.Length + 1
        pw = Mid(conStr, i, j - i)
        ' Get server name
        i = InStr(1, conStr, "Data Source") + 12
        j = InStr(i, conStr, ";")
        serverName = Mid(conStr, i, j - i)
        ' Get db name
        i = InStr(1, conStr, "Database") + 9
        j = InStr(i, conStr, ";")
        dbName = Mid(conStr, i, j - i)

        ' Set DB login info
        oRpt.SetDatabaseLogon(userID, pw, serverName, dbName)

        ' Set Record Selection Formula
        Dim rsfVar As String = Request.QueryString.Item("RSFVar")
        If oRpt.RecordSelectionFormula = "" Then
             oRpt.RecordSelectionFormula = "{Customers.CustomerName} = '" & rptVar & "'"
        Else
             oRpt.RecordSelectionFormula += " and {Customers.CustomerName} = '" & rptVar & "'"
        End If

        ' Set CR parameter
        oRpt.SetParameterValue("CustomerName", CStr(Session("CustName")))

        Dim uu As New UserUtils
        oRpt.SummaryInfo.ReportAuthor = uu.UserID

        CrystalReportViewer1.ReportSource = oRpt
        Session("ReportDoc") = oRpt
    Else
        oRpt = CType(Session("ReportDoc"), CrystalDecisions.CrystalReports.Engine.ReportDocument)
        CrystalReportViewer1.ReportSource = oRpt
    End If
End Sub