Private Sub bt_Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_Print.Click
        Dim s As String
        Dim rep As CrystalDecisions.CrystalReports.Engine.ReportDocument
        rep = New CrystalDecisions.CrystalReports.Engine.ReportDocument()

        s = IO.Directory.GetCurrentDirectory + "\reportdocuments\" + sReportName + ".rpt"
        rep.Load(s, CrystalDecisions.[Shared].OpenReportMethod.OpenReportByDefault)
        rep.SetDataSource(ds)

        If sPaperOrientation = "Landscape" Then
            rep.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape
        Else
            rep.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Portrait
        End If

        rep.PrintToPrinter(1, True, 0, 0)
    End Sub