I had this little project of a POS System, that i've already finished, and i try to retake it again to add more features

And suddenly in a Summary Report for the sales of the day i keep getting this error message

Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX)

And im cranking my head in to figuring out what is wrong, please help!!

the error starts in the PrintToPrinter method

rptDocument.PrintToPrinter(1, False, 0, 0)

Here is my code that controls that button

connection.ConnectionString = (My.Settings.mainConnectionString.ToString)
                'command.CommandText = "SELECT idDepto,descripcion,total FROM RVentas WHERE(fecha = '" & TextBox1.Text & "');"
                command.CommandText = "INSERT INTO RVentas (idDepto, tipo, descripcion, total, fecha) SELECT departamento.Id AS ID,VentasDD.tipo AS Tipo, departamento.Nombre AS Departamento, SUM(VentasDD.Importe) AS Total, VentasDD.fecha FROM departamento INNER JOIN VentasDD ON departamento.Id = VentasDD.IdDepto GROUP BY VentasDD.tipo, VentasDD.fecha, departamento.Id, departamento.Nombre HAVING (VentasDD.fecha = '" & TextBox1.Text & "') AND (VentasDD.tipo ='V');"


                command.Connection = connection
                adaptador.SelectCommand = command

                command.CommandText = "SELECT idDepto,descripcion,total FROM RVentas WHERE(fecha = '" & TextBox1.Text & "');"
                adaptador.SelectCommand = command
                adaptador.Fill(dataset, "0")
                DataGridView1.DataSource = dataset.Tables(0)

                strreportname = "RVentas"

                'Get the Report Location
                Dim strReportPath As String = "C:\" & strreportname & ".rpt"
                'Check file exists
                If Not IO.File.Exists(strReportPath) Then
                    Throw (New Exception("Unable to locate report file:" & vbCrLf & strReportPath))
                End If
                'Assign the datasource and set the properties for Report viewer
                Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument

                'rptDocument.SetDatabaseLogon("admin", "ehvgem")

                CrystalReportViewer1.ShowRefreshButton = False
                CrystalReportViewer1.ShowCloseButton = False
                CrystalReportViewer1.ShowGroupTreeButton = False
                CrystalReportViewer1.ReportSource = rptDocument

                margins = rptDocument.PrintOptions.PageMargins
                margins.bottomMargin = 1
                margins.leftMargin = 0.1
                margins.rightMargin = 0.1
                margins.topMargin = 0.25

                rptDocument.PrintToPrinter(1, False, 0, 0)

                command.CommandText = "DELETE FROM RVentas;"

                command.Connection = connection
                adaptador.SelectCommand = command

Thanks in Advance!!

5 Years
Discussion Span
Last Post by CrankyMero

So i managed to get the ex.Message and got the following image that i added to this reply, also i know that the margins are correct and everything!, I have the same method when printing a purchase receipt and it doesnt give me any problems

only on the summary

Attachments Cajero_Error.png 27.75 KB
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.