لماذا لايستقر البرنامج على خط واحد

بالنسبة للسؤال الأول :

http://www.arabteam2000.com/vb/show...=&threadid=5792

http://www.arabteam2000.com/vb/show...=&threadid=4039

http://arabteam.nicmatic.com/vb/showthread...%C3%DD%DE%ED%C9

أما السؤال الثاني فلا أعرف ، لكن هذا موضوع مقارب :

http://arabteam.nicmatic.com/vb/showthread...ighlight=%CE%D8

شكرا لك اخي حارث على تجاوبك السريع

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

شكرا لك اخي حارث وبارك الله فيك

أعتذر عن الخطأ في كتابة الوصلات :

بالنسبة للرابط الثالث خلاصته

اكتب الكود التالي في زر الأمر الذي يفتح التقرير في حدث عند النقر ، لكن يجب أن تكتبه بعد الأسطر الخاصة بالفتح ، أو اكتبه في خصائص التقرير في حدث عند التنشيط (على ما أظن):

Report![اسم التقرير].Printer.Orientation = 2 ' صفحة أفقية

Report![اسم التقرير].Printer.Orientation = 1 ' صفحة عمودية

علما بأنه لا يعمل إلا على أكسس xp

أما الروابط الأول والثاني فهما :

http://www.arabteam2000.com/vb/showthread....=&threadid=5792

http://www.arabteam2000.com/vb/showthread....=&threadid=4039

وخلاصتهما ما يلي :

Reports("RR").Printer.LeftMargin = 520

Reports("RR").Printer.TopMargin = 520

Reports("RR").Printer.BottomMargin = 520

Reports("RR").Printer.RightMargin = 658

Reports("RR").Printer.Orientation = acPRORLandscape

Reports("RR").Printer.PaperSize = A4

استبدل RR باسم التقرير لديك ، وضع هذا الكود كما سبق وهو أيضا يعمل على xp

علما بأن الأسطر الأربعة الأولى لضبط الهوامش الأربعة

والسطر الخامس لكون التقرير أفقيا .

والسادس لحجم الورق .