فتح تقرير عموديا وافقيا .. برمجيا

[ابوخليل]

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

كثيرا ما حاولت فتح التقرير  وعرضه بالتبديل من الوضع العمودي الى الوضع الأفقي خاصة عندما افتحه مخفيا على عرض التصميم للتعامل مع الحقول برمجيا

وكانت النتيجة انه يمكن التعامل برمجيا مع الحقول .. وإنشاء حقول جديدة .. ويمكنني بعد ذلك عرضه للمعاينة بحقوله الجديدة

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

وبعد التمعن والمحاولة عرفت السبب .. واذا عرف السبب بطل العجب

وهو اني احاول التعامل مع التقرير من خلال خصائصه .. وخصائص التقرير لا تدعم هذه الميزة

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

لن اطيل عليكم فبالمثال يتحقق المقال :

'للعرض الأفق
DoCmd.OpenReport "Report1", acViewPreview
Reports!Report1.Printer.Orientation = acPRORLandscape

'للعرض الرأسي
DoCmd.OpenReport "Report1", acViewPreview
Reports!Report1.Printer.Orientation = acPRORPortrait

وهذه الطريقة الشاملة للتعامل
Private Sub Command2_Click()
' او افتح تقريرك على التصميم وتعامل مع الحقول
DoCmd.OpenReport "Report1", acViewDesign, , , acHidden
'اكتب هنا اكوادك الخاصة بالتعامل مع الحقول او العناصر الأخرى
'............
'............
'...............
' ثم اختر طريقة العرض الرأسي
Reports!Report1.Printer.Orientation = acPRORPortrait
' أو الأفقي
'Reports!Report1.Printer.Orientation = acPRORLandscape
' افتح التقرير للمعاينة
DoCmd.OpenReport "Report1", acViewPreview
End Sub

 

فتح التقرير افقي او عمودي برمجيا.rar

[منتصر الانسي]

الصراحة هذا الأمر مهم وأول مرة يمر علي

شكراً لك أستاذ @ابوخليل