الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الطباعة مباشرة على الطابعة الرئيسية دون مشاهدة التقرير

بدأه Ph-RevIng في 5 أغسطس 2011 · 3 رد · 1,394 مشاهدة · في تصميم وبرمجة التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

شباب مند مدة وانا ابحت عن طريقة لطباعة تقرير دون عرضه

يعني مجرد اني اضغط زر " طباعة " يطبع على الطابعة

كنت استعمل الكود التالي لاضهار التقرير تم طباعته

I_VISISTE.Show()

I_VISISTE طبعا هو اسم الفورم الدي عليه CrystalReportViewer

بعدها استعملت الكود

  I_VISISTE.CrystalReportViewer1.ReportSource = Application.StartupPath & "\Rapports\Rapport de visite.rpt"
                        I_VISISTE.CrystalReportViewer1.PrintReport()

قمت بربط CrystalReportViewer مع التقرير وطباعته

مباشرة يعطيك هده النافدة لتختار اي طابعة تريد الطباعة عليها

1127172314.jpg

المشكل اني لا اريد ان تضهر هده النافدة , يطبع مباشرة على الطابعة الرئيسية

والتي هي Canon LBP 2900 كما في الصورة عليها علامة

تتسائلون لمادا لا اريد ان تضهر هده النافدة

السبب اني اريد تحديد عدة تقارير من datagrid وطباعتها بضغطة زر واحدة دون طباعة كل واحد لوحده

#2

لست بحاجة للReportViewer ان كنت ستطبع مباشرة الى الطابعة. هناك class للتقرير اسمها ReportDocument وفيها method اسمها PrintToPrinter.

1
#3

شكرا على المعلومة اخي

هل من متال عنها ؟

#4

بارك الله فيك اخي الكريم

بعد عدة محاولات وصلت الى حل لمشكلتي

وهدا الكود لمن اراد استعماله

وهو يقوم بطباعة كل التقارير التي ضللتها على Datagrid مباشرة على الطابعة دون مشاهدة

Function imprimer()
        Try



            For Each row As DataGridViewRow In DataGridView1.SelectedRows

                Label1.Text = DataGridView1.Rows(row.Index).Cells(1).Value

                connecte()
                cmd = New OleDb.OleDbCommand("DROP TABLE epreuve", con)
                cmd.ExecuteNonQuery()
                deconnecte()

                connecte()
                cmd = New OleDb.OleDbCommand("Create View epreuve as select *from Certificatdepreuve  where ref = """ & Label1.Text & """ ", con)
                drd = cmd.ExecuteReader()
                drd.Close()
                deconnecte()

                Dim report As New ReportDocument

                report.Load(Application.StartupPath & "\Rapports\Certificat d'épreuve.rpt")
                report.PrintToPrinter(1, False, 1, 1)

            Next

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Erreure !")
        End Try
    End Function

تم تعديل هذه المشاركة بواسطة Ph-RevIng في 5 أغسطس 2011 في 19:31

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…