19-04-19, 09:52 PM
(آخر تعديل لهذه المشاركة : 20-04-19, 12:58 AM {2} بواسطة Rabeea Qbaha.)
السلام عليكم
اريد طباعة تقرير ال crystal report مباشرة الى الطابعة دون فتحة
حاليا انا اطبع بعدما اقوم بعرض CrystalReportViewer
اريد طباعة تقرير ال 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)