omani

اخي الحبيب bode لا علاقة للداتاريبورت بعرض الصفحة . يمكنك انشاء تقرير بعرض 70 سم شريطة ان تكون الطابعة الافتراضية تدعم هذا الحجم من الورق . ومهذا من خلال تجربة شخصية . فقط اولا قم بتحديد الطابعة الافتراضية بحيث تكون من النوع الذي يدعم طباعة A3 ومن ثم قم بتحديد…

تفضلي المثال بعد التعديل تحياتي DataLayan.rar

اخي الكريم الداتاريبورت يقوم بقراءة اعدادت الطابعة الافتراضية أولا والورق الافتراضي بها . ومن ثم يقوم بانشاء التقرير . لذا كل ما عليك فعله هو تنصيب طابعة افتراضية تتعامل مع الورق من المقاس المطلوب ثم قم بتشغيل تقريرك ستجد انه يعمل بدون مشاكل . تحياتي

الداتا ريبورت يقبل ذلك ولكن عليك تعيين طابعة افتراضي بالاول تدعم هذا النوع من الورق اي ان يكون نوع الورق المستخدم في الطابعة من فئة A3 تحياتي

يجب ان لا يتم تحديد الداتا مبمبر في وقت التصميم وانما يترك فارغ ليتمر تمريره في الرن تايم تحياتي

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

استخدم لجمع بيانات حقل الجملة التالية SQL = "Select SUM(FieldName) As Total from TableName " تحياتي

اخي استخدم جملة الربط بين الجدول JOin مثال : SQl = "select Tabel1.*,Table2.* from Table1 INNER JOIN Table2 on Table1.ID = Table2.ID " تحياتي

استخدمي جمل الاسكيوال لهذا الغرض . مثلا : SQL= "select * from Table Where CourseName = '" & text1.text & "';" تحياتي

ابحثي عن اداة ACTIVE SKIN فيتجدين بها كل ما يلزمك كما انها سهلة التطبيق على الفورم . تحياتي

لو فرضنا انك تريد طباعة الصفحة رقم 2 فقط فقط ضع هذا الكود في المكان المناسب . كزر أمر مثلا : DataReport1.PrintReport False, rptRangeFromTo, 2, 2 تحياتي

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

هل ممكن ان ترفع المثال ؟ تحياتي

اخي الكريم : إذا كان عرض التقرير اكبر من 27 سم فسوف يعطيك الرسالة حتى ولو قمت بتغيير اعدادات الطابعة يدويا الى لاند سكيب او الطباعة بعرض الصفحة . حيث ان التقرير يعتمد على حجم الصفحة وهي A4 وعرضها هو 29 سم فقط . فيجب ان تحسب حساب ذلك . بالنسبة للمثال : فكلمة ال…

اخي الكريم : من المفروض انك تستخدم الكود التالي لمكتبتك Dim m As New Class1 Dim n As Long n = m.HS(200, 230) تحياتي

تفضل اخي مثالك بعد التعديل تحياتي Rashid.rar

اخي هذا يكتب قبل اظهار التقرير والكود الصحيح هو: DataReport1.Orientation = rptOrientLandscape مثال : DataReport1.Orientation = rptOrientLandscape DataReport1.Show

اخي هذا مثال لكيفة التحجيم حسب حجم الورقة ز تحياتي VIP_Example.rar

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

اخي الكريم : إن كنت تقصد Form فيمكن ذلك باستخدام الامر Form1.PrintForm ولكن هذا الامر سيطبع النموذج كما هو . وإذا كنت تقصد نموذج معين كاستمارة مثلا . فيمكنك ذلك باستخدام احد انواع التقارير كالداتا ريبورت او الكريستال ريبورت .