منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اساتذتنا
لدي مشكلة فى كود طباعة البون 
قمت بتصميم البون على كريستال ريبورت و استخدمت هذا الكود للطباعة المباشرة و تحديد البرينتر



 Dim report As New تقرير_مبيعات_شيفت

                report.SetDataSource(query.CopyToDataTable)

                تقارير_المبيعات.CrystalReportViewer1.ReportSource = report


                'تحديد_البرينتر
                report.PrintOptions.PrinterName = (برينتر_بونTextBox.Text)


                'كود_طباعة_البون_بدون_عرض
                report.PrintToPrinter(1, False, 0, 5)



المشكلة ان البون طويل و عند كل مسافة تساوى مقاس طول الورقة ال a4 يتم القطع و يصبح البون مقطع على 3 ورقات او 4 ورقات

اريد كود اخوتى يجعل القطع فى اخر الطباعة ؟

و شكرا على مشاركتكم

01281083198
كانت مشكلة عندى ولكن وجدت الحل