تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة تقرير ال crystal report مباشرة الى الطابعة دون فتحة - تم الحل
#1
السلام عليكم 

اريد طباعة تقرير ال 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(SQLInvoicesPConn)
 
       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(1False00
الرد
تم الشكر بواسطة: elgokr , elgokr , dell , dell , awidan76


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الطابعة الإفتراضية اسامه الهرماوي 0 126 04-03-20, 12:20 AM
آخر رد: اسامه الهرماوي
  [ تمّ الحل ] : إخفاء ال Text Object من صفحة الكريستال ريبورت عبد العزيز البسكري 7 201 24-02-20, 12:34 AM
آخر رد: alsalamoni
Question [سؤال] مشكلة نقصان حجم الخط عند تصدير تقرير Crystal Report إلى Pdf taha25 0 314 24-12-19, 04:43 PM
آخر رد: taha25
  محتاج مساعدتكم يا أهل المعرفة .. مشكلة في طريقة عرض تقرير rojbany 0 266 13-11-19, 12:46 AM
آخر رد: rojbany
  [VB.NET] معالجة مشكل طباعة الفاتورة دون حفضها sniperjawadino 5 470 07-10-19, 12:39 PM
آخر رد: sniperjawadino
  [سؤال] ظهور خطأ no such interface عند طباعة صفحة word ويندوز windows 10 عبد الله 2 310 01-10-19, 03:41 AM
آخر رد: عبد الله
  [سؤال] طباعة كل سجل في الجدول بصفحة محاسب يوسف 13 3,490 04-09-19, 01:50 PM
آخر رد: Hassan.syria
  [C#.NET] مشكلة فى report viewer c# Mido-9 1 370 14-08-19, 03:04 PM
آخر رد: اسامه الهرماوي
  عمل تقرير في كريستال ريبورت imadeeb 0 444 08-08-19, 12:08 PM
آخر رد: imadeeb
  اريد تحديد عدد نسختين فقط لطباعة تقرير bassant 0 353 08-07-19, 10:37 AM
آخر رد: bassant

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم