التنسيق أثناء العمل

بسم الله الرحمن الرحيم

egyman كتب:

بسم الله الرحمن الرحيمشباب أنا استخدم CR10 مع برنامج VB 6

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

إتاحة ترك مسافة بين السجلات اثناء العرض أو أن لا يكون هناك مسافة بين السجلات

إتاحة وضع خط بين السجلات أو بدون خط

فكرت أن يكون الحل بارميتر TRUE أو FALSE

فى حالة كونه TRUE يظهر الخط و العكس يخفيه

لكني لم أستطع تنفيذ هذه الفكرة

فهل من مساعد

و شكراً

←

أنا لم أعمل على Crystal Reports لكن كون الفكرة أعجبتني طبقتها على Datareport

سأبدأ بالطلب الأول : ( ظهور الخط )

حيث اسم التقرير Datareport1 واسم الخط Line1 وموجود في Section1

لكي نخفي الخط

Datareport1.Sections("Section1").Controls("Line1").Visible = False

أما لإظهاره

Datareport1.Sections("Section1").Controls("Line1").Visible = False

أما بالنسبة للسؤال الثاني فيفترض أن يكون كالتالي :

Datareport1.Sections("Section1").Height = X

حيث X هي الارتفاع الذي تريده

لكنه لم يعمل معي ، جربه عندك قد يعمل .

علما أن الأكواد السابقة تكتب قبل استدعاء الطباعة

أرجو أن تفيدك محاولتي .

بالتوفيق

والسلام عليكم ورحمة الله وبركاته