Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

    rpt.Load(Server.MapPath("~/admin/PlaReport.rpt"))
    rpt.SetDatabaseLogon("sa", "admin123#", "Sheldon", "Sales")
    rpt.SetParameterValue("@Date", 0)

    Dim pDoc As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument
    Dim PrintLayout As CrystalDecisions.Shared.PrintLayoutSettings = New CrystalDecisions.Shared.PrintLayoutSettings
    Dim printerSettings As System.Drawing.Printing.PrinterSettings = New System.Drawing.Printing.PrinterSettings

    printerSettings.PrinterName = "\KOOTHRAPPALIReception"

    Dim pSettings As System.Drawing.Printing.PageSettings = New System.Drawing.Printing.PageSettings(printerSettings)
    printerSettings.DefaultPageSettings.Landscape = False
    printerSettings.Copies = 1
    Dim pkSource As PaperSource
    For i = 0 To printerSettings.PaperSources.Count - 1
        pkSource = printerSettings.PaperSources.Item(i)
        If pkSource.SourceName = "Large Capacity Cassette" Then
            pSettings.PaperSource = pkSource
        End If
    Next

    rpt.PrintOptions.DissociatePageSizeAndPrinterPaperSize = True
    rpt.PrintOptions.PrinterDuplex = CrystalDecisions.Shared.PrinterDuplex.Simplex
    rpt.PrintToPrinter(printerSettings, pSettings, False, PrintLayout)

    MessageBox.Show("Done")

End Sub