منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طباعة تقرير ال crystal report مباشرة الى الطابعة دون فتحة

السلام عليكم

اريد طباعة تقرير ال crystal report مباشرة الى الطابعة دون فتحة
حاليا انا اطبع بعدما اقوم بعرض CrystalReportViewer

اريد طريقه للطباعة مباشرة.

PHP كود :

 Dim rpt1 = Nothing

            If My.Settings.Bill_size = "small" Then
                rpt1 = New Bill_small_HE
            ElseIf My.Settings.Bill_size = "large" Then
                rpt1 = New Bill_HE
            End If
            rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
            rpt1.SetDataSource(DataSetInvoicesP)

            Dim frm As New FormPrint
            frm.CrystalReportViewer1.ReportSource = rpt1
            frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "R0123"
            frm.ShowDialog() 

الحل :

PHP كود :

If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If

        SQLInvoicesP = "SELECT * FROM Invoices WHERE IDInvoices = @IDInvoices order by DateInvoice DESC"
        Dim cmd As New OleDbCommand(SQLInvoicesP, Conn)
        cmd.Parameters.AddWithValue("@IDInvoices", Val(TxTIDInvoices.Text))

        DataSetInvoicesP.Clear()

        Dim DataAdapterInvoicesP As New OleDbDataAdapter(cmd)
        DataAdapterInvoicesP.Fill(DataSetInvoicesP, "Invoices")

        Conn.Close()

        Application.DoEvents()
        Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
        ConInfo.ConnectionInfo.ServerName = Application.StartupPath & "\DB.mdb"
        ConInfo.ConnectionInfo.DatabaseName = "DB.mdb"
        ConInfo.ConnectionInfo.UserID = "Admin"
        ConInfo.ConnectionInfo.Password = "R0123"


      
            Dim rpt1 = Nothing
            rpt1 = New Bill_small_AR

            rpt1.Database.Tables(0).ApplyLogOnInfo(ConInfo)
            rpt1.SetDataSource(DataSetInvoicesP)

            rpt1.Refresh()
            rpt1.PrintToPrinter(1, False, 0, 0) 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Rabeea Qbaha