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

أفيدوني جزاكم الله خيراً فقد تعلمت الكثير من خلال هذا المنتدى وأرغب بالمزيد


الملفات المرفقة
.rar   testreport.rar (الحجم : 79.63 ك ب / التحميلات : 73)
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#2
لو تقارير المايكروسوفت المدمجة مع الفيجوال ستوديو كان افدتك ،، الكريستال ريبورت برنامج خارجي عن الفيجوال لذلك ما اتعامل معه . في انتظار احد الاخوه ممن يتعامل مع الكريستال .
الرد }}}}
تم الشكر بواسطة:
#3
اخي حريف برمجة لم أفهم قصدك لكن الكريستال ريبورت الذي استخدمه هو من داخل الفيجوال
على كل حال شكرا جزيلا على اهتمامك اخي العزيز
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#4
.....

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

الطباعة إلى الطابعة الإفتراضية مباشرة بدون معاينة
كود :
' الطباعة إلى الطابعة الإفتراضية مباشرة بدون معاينة
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إستخدام التقرير
    Using myreport As New CrystalReport1
        ' تمرير قيمة إلى التقرير
        myreport.SetParameterValue("Amount", TextBox1.Text)

        ' إرسال إلى الطابعة
        myreport.PrintToPrinter(1, True, 0, 0)
    End Using

End Sub


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

الطباعة إلى الطابعة المختارة من نافذة حوار الطباعة مباشرة بدون معاينة
كود :
' الطباعة إلى الطابعة المختارة من نافذة حوار الطباعة مباشرة بدون معاينة
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    ' إستخدام التقرير
    Using myreport As New CrystalReport1
        ' تمرير قيمة إلى التقرير
        myreport.SetParameterValue("Amount", TextBox1.Text)

        ' إستخدام مربع حوار الطباعة
        Using ptr As New PrintDialog
            ptr.UseEXDialog = True ' لابد من هذا السطر ليظهر مربع حوار الطباعة
            If ptr.ShowDialog = Windows.Forms.DialogResult.OK Then
                myreport.PrintOptions.PrinterName = ptr.PrinterSettings.PrinterName

                ' إرسال إلى الطابعة
                myreport.PrintToPrinter(1, True, 0, 0)
            End If
        End Using

    End Using
End Sub

.....
الرد }}}}
تم الشكر بواسطة: raoe-041 , abuzzouz , aftfm
#5
بارك الله فيك أخي العزيز فعلا مميز
هل يمكن تفريغ التقرير من البيانات المرسلة إليه بكود واحد
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#6
آسف أخي العزيز كان سؤالي في غير محله حيث أنني لم أكن قد جربت الكود بعد

لكن لو تكرمت لدي سؤال فيما يتعلق بموضوع التفقيط
http://vb4arb.com/vb/thread-3503.html

مع كل الشكر والتقدير
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#7
أخي vbnet أخواني الأعزاء
كان طلبي السابق يتعلق بطباعة التقرير مباشرة بدون معاينته إلا أن العميل يريد رؤية التقرير قبل الطباعة
فهل لي بمساعدتكم جزاكم الله خيراً حيث أني قليل خبرة في موضوع التقارير كفاكم الله شرها
في المرفق مثال بسيط للتطبيق


الملفات المرفقة
.rar   testreport.rar (الحجم : 90.2 ك ب / التحميلات : 73)
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#8
.....

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

كود :
' جدول البيانات هذا يفترض أن يحتوي بيانات ناتج استعلام ما
Dim myDataTable As New DataTable

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    '---------------------------------------------------------
    ' إما أن يكون جدول البيانات تمت تعبئة مسبقاً
    ' أو أن يتم هنا استدعاد إجراء لتعبئة جدول البيانات بناتج استعلام ما
    '---------------------------------------------------------

    ' إنشاء فورم المعاينة برمجياً
    Using frmPreview As New Form

        '---------------------------------------------------------
        ' تعديل خصائص فورم المعاينة ------------------------------
        ' وضع عنوان للفورم
        frmPreview.Text = "معاينة"
        ' جعل واجهة الفورم من اليمين لليسار
        frmPreview.RightToLeftLayout = True
        frmPreview.RightToLeft = Windows.Forms.RightToLeft.Yes
        ' تحديد حجم الفورم
        frmPreview.Size = New Size(700, 500)
        '' جعل الفورم بكامل الشاشة
        'frmPreview.WindowState = FormWindowState.Maximized
        ' تحديد مكان ظهور الفورم في منتصف الشاشة
        frmPreview.StartPosition = FormStartPosition.CenterScreen
        '---------------------------------------------------------

        ' إستخدام التقرير
        Using myreport As New CrystalReport1

            ' ربط جدول البيانات بالتقرير
            ' يجب أن يكون قبل تمرير قيم للتقرير
            myreport.SetDataSource(myDataTable)

            '---------------------------------------------------------
            ' تمرير كل القيم المطلوبة إلى التقرير حتى لو كانت فارغة
            myreport.SetParameterValue("Amount", TextBox1.Text)
            'myreport.SetParameterValue("Description", TextBox2.Text)
            '---------------------------------------------------------

            ' إنشاء عارض التقارير برمجياً
            Using myCRptViewer As New CrystalDecisions.Windows.Forms.CrystalReportViewer

                ' جعل أداة عارض التقارير أحد أدوات فورم المعاينة
                myCRptViewer.Parent = frmPreview

                ' جعل أداة عرض التقرير بكامل الفورم
                myCRptViewer.Dock = DockStyle.Fill

                ' إخفاء بعض أدوات عارض التقارير التي لا نحتاجها
                myCRptViewer.DisplayGroupTree = False
                myCRptViewer.ShowCloseButton = False
                myCRptViewer.ShowExportButton = False
                myCRptViewer.ShowGroupTreeButton = False
                myCRptViewer.ShowRefreshButton = False
                myCRptViewer.ShowTextSearchButton = False

                ' ربط التقرير بعارض التقارير
                myCRptViewer.ReportSource = myreport

                ' وضع الزووم للصفحة داخل أداة عارض التقارير
                ' 1 = Page Width بعرض الصفحة
                ' 2 = Whole Page بكامل الصفحة
                myCRptViewer.Zoom(2)

                ' عرض فورم المعاينة
                frmPreview.ShowDialog()

            End Using
        End Using
    End Using
End Sub

.....
الرد }}}}
تم الشكر بواسطة: abuzzouz
#9
راااااائع أخي vbnet كالعادة
لكن كيف يمكن التحكم بخصائص هذا الفورم الجديد frmPreview ( طوله، عرضه، مكان ظهوره، عنوانه .....إلخ)

تقبل مني كل الشكر والامتنان
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:
#10
اخواني الأفاضل
لدي مشكلة في طباعة التقرير أعتقد أنها تتعلق بحجم الورق حيث أني حين أطبع بحجم A4 يظهر التقرير سواء كان اتجاه الطباعة أفقي Landscape أو عمودي Portrait
أما عند الطباعة بحجم أصغر من A4 يظهر التقرير فقط عندما تكون الطباعة باتجاه عمودي أما بالاتجاه الأفقي فلا يظهر نهائياً
وأنا أحتاج الطباعة مباشرة بالخيارين ولا أريد إظهار PrintDialog
استخدم الكود التالي دون جدوى
كود :
MyRep.PrintOptions.PaperOrientation = PaperOrientation.Portrait

Or

MyRep.PrintOptions.PaperOrientation = PaperOrientation.Landscape

أفيدوني جزاكم الله ألف خير
{ اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الخبير }
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود طباعة فاتورة مبيعات على طابعة EPSON LQ-300+ /II ESC/P 2 سيد درويش 2 2,700 27-11-16, 12:14 PM
آخر رد: hglogtd
  الطباعة بواسطة الكريستال ريبورت باستخدام الاجراء المخزن حماده السعيد 7 867 10-10-16, 10:34 AM
آخر رد: محمد فاوي
  عند استعراض التقرير تظهر هذه الرسالة hefa 13 734 18-09-16, 07:23 AM
آخر رد: نايف 2006
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 162 12-09-16, 12:25 AM
آخر رد: adel2012
  اريد حل مشكلة database login وطلب اسم المستخدم وكلمة السر honest 3 955 19-08-16, 09:14 PM
آخر رد: lazreg
  مشكلة فى تسطيب كريستال ريبورت 2013 ل vb2010 abdelsalam 1 213 16-08-16, 06:14 PM
آخر رد: Kian Tech
  [سؤال] بخصوص محاذاة محتويات التقرير الي يمين الصفحة eldmasy11 0 114 01-08-16, 02:20 PM
آخر رد: eldmasy11
  طباعة السجل الحالي علي كعبي 19 489 23-06-16, 02:11 AM
آخر رد: علي كعبي
  [سؤال] كيف يمكننى طباعة كل الفواتير مصممه بالكريستال ريبورت وvb.net? محمود بكرى 4 291 21-06-16, 11:46 PM
آخر رد: محمود بكرى
Lightbulb [VB.NET] حفظ التقرير - قواعد بيانات Kian Tech 2 138 18-06-16, 01:25 AM
آخر رد: Kian Tech

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


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