طباعة تقرير ال 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)