منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود لطباعة الكريستال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود لطباعة الكريستال (/showthread.php?tid=8789)

كود لطباعة الكريستال - cvcvcv - 05-05-13

السلام عليكم ورحمة الله وبركاته
صممت برنامج به تقارير بالكريستال ريبورت ... وبالطبع يوجد في شريط الادوات الخاص بـ CrystalReportViewer1 ايقونة خاصة بالطباعة .
ورأيت أن اقوم بحذف شريط الادوات .. حتى لا يستطيع المستخدم التلاعب في الهوامش والي اخره .
المطلوب :
كود يقوم بطباعة التقرير .... ولكن بطريقة أفقية ...
كود يقوم بطباعة التقرير .... ولكن بطريقة رأسية ...
وشكرا لكم دائما

كود لطباعة الكريستال - Sajad - 05-05-13

السلام عليكم

تفضل اخي العزيز

PHP كود :
Dim cr As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

            ' افقي
            cr.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape

            ' عمودي
            cr.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Portrait 

كود لطباعة الكريستال - cvcvcv - 05-05-13

شكر دائم للاستاذ المحترم sajad بس يا ريت توضيح .. الكود ده علشان يخلي الصفحة رأسية .. لكن هل هذا الكود للطباعة أيضاً ؟ لأن سؤالي كان على الاتنين .. اولا يجعل الصفحة راسية ثم يطبعها .. حيث انني لم اجد كلمة print .. ارجو التوضيح .. وشكرا

كود لطباعة الكريستال - Sajad - 05-05-13

العفو اخي العزيز

اخي اذا اردت الطباعة مباشرة اولا حدد مصدر البيانات للCrystalReport ثم اكتب

PHP كود :
cr.PrintToPrinter(1, false, 0, 0)