'''
'''Override the ${Button Control}_Click and call DisplayReportAsPD() function
'''
Public Overrides Sub ${Button Control}_Click(ByVal sender As Object, ByVal args As EventArgs)
Dim crReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument
crReportDocument.Load("${Crystal Report File}")
DisplayReportAsPDF(crReportDocument)
End Sub
|