Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.IO

'This call is required by the Web Form Designer.
     Private Sub InitializeComponent()
        'start - This code should be pasted under #Region Private Sub itializeComponent()
'rptProduct is the name of crystal report.
        Me.docProd = New rptProduct
        '
        'docProd
        '
        Me.docProd.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.DefaultPaperOrientation
        Me.docProd.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
        Me.docProd.PrintOptions.PaperSource = CrystalDecisions.Shared.PaperSource.Upper
        Me.docProd.PrintOptions.PrinterDuplex = CrystalDecisions.Shared.PrinterDuplex.Default
'Ends here
    
'Declaration of report document
Protected WithEvents docProd As rptProduct

Private Sub CreatePDF()        
        Dim objDS As New DataSet
        Dim dfdoFile As New CrystalDecisions.Shared.DiskFileDestinationOptions
        Dim strServerPath As String
        Dim szFileName As String

       
            'Create dataset as per requirement

            docProd.SetDataSource(objDS.Tables(0))

            szFileName = Session.SessionID & ".pdf"         ' rptDailyCalls.pdf
            strServerPath = MapPath("~") & "\Report\"       ' Here the pdf file will be saved.   
                     File.Delete(strServerPath & "\" & szFileName)   ' Delete file first
            dfdoFile.DiskFileName = strServerPath & "\" & szFileName
docProd.DataDefinition.FormulaFields("DispFromDate").Text = "Date(" & Format(Date.Now,"dd/MM/yyyy") & ")" 
'Here DispFromDate is the name of blank formula	
            With docProd
                .ExportOptions.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
                .ExportOptions.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
                .ExportOptions.DestinationOptions = dfdoFile
                .Export()
            End With
       'URL of the pdf file
 Response.Redirect("http://localhost/WebApplication1/" & szFileName ,Flase)
End Sub