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