Halloj.


Jag har två Crystal Reports rapportfiler (.rpt) i mitt projekt.

För att anropa och printa första gör jag så här:

            Dim strConnection As String = "Data Source=111.111.111.111;Initial Catalog=MinTestDB;UID=sa;PWD=sa"

            Dim Connection As New SqlConnection(strConnection)
            Dim strSQL As String = "Select * From tblTest WHERE TestNumber=" & Me.lblTestIndic.Text
            Dim DA As New SqlDataAdapter(strSQL, Connection)
            Dim DS As New DataSet

            'Variable to assign the report name

            Dim strReportName As String
            DA.Fill(DS)

            'Pass the reportname to string variable 

            strReportName = "Testrapport"


            'Assign the datasource and set the properties for Report viewer

            Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument

            crystalReport11.SetDataSource(DS.Tables(0))

            crystalReport11.PrintToPrinter(2, False, 1, 1)

            MessageBox.Show("Test " & Me.lblTestIndic.Text & " utförd")