السلام عليكم
كيف يمكنني تغيير طول وعرض منطقة التفاصيل داخل التقرير برمجيا؟
مرفق صورة للتوضيح
شباب طيب حتي طول التقرير كله وعرضه... تعبت من كتر البحث
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
بالنسبة للتحكم في ارتفاع قسم التفصيل في التقرير فإننا سوف نستخدم هذا الكود
اذا كان الأكسيس عربي
Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Reports!rptCustomers.Section(0).Height = 360 End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Reports!rptCustomers.Section(0).Height = 360 End Sub
لاحظ معي الرقم 360 وكيف تم حسابه
1 إنش = 2.5 سم
1 إنش = 1440 وحدة تويب
2.5 سم = 1440 وحدة تويب
1.25 سم = 720 وحدة تويب
0.625 سم = 360 وحدة تويب
الآن تريد مثلا يكون ارتفاع قسم التفصيل 5 سم
اذا سيكون 5 سم = 2880 وحدة تويب
لذا غير الرقم 360 بما تريده من ارقام بناء على الشرح السابق
بالنسبة لعرض قسم التفصيل فلا تستطيع التحكم به لأن هذا العرض هو مخصص للتقرير ككل فقط وهو يعتمد بالدرجة الأولى على
حجم الورق الذي تم اختياره سواء A4 او A5 او اي ورق تختاره في التقرير وايضا على وضعية الورق هل هو عمودي او أفقي .
فإن قمت بزيادة عرض التقرير عن المطلوب فسيظهر لك خطأ ان حجم عرض التقرير اكبر من اللازم اي اكبر من عرض الورقة سواء A4 او A5
لذا تجنبا لعدم حدوث اي خطأ ولعدم ازاحة بيانات حقول التقرير خارج الصفحة لتذهب الى صفحة ثانية ارى ان تبقي عرض التقرير كما هو بدون اي تغيير
بالتوفيق
H_O_A كتب:الاستاذ زهرة
ممتاز جدا المثال المرفق وممتاز جدا التحويلات بين الانش ووحدات التبويب
شكرا جزيلا ...ربنا يجزيكي عنا خير الجزاء
سؤالين طمع في كرمك:
هل يمكن تحديد عرض التقرير برمجيا؟
هل يمكن تحديد عدد الاعمدة وتباعد الصفوف برمجيا؟؟
شاكر جدا تعبك
تفضل اخي الكريم
التحكم في مقاسات التقرير وهوامشة برمجيا
قم بإنشاء نموذج فارغ وضع به زر أمر لفتح التقرير وضع به هذا الكود البرمجي
Private Sub CmdOpen_Click()
DoCmd.OpenReport "MyNameReport", acViewDesign 'فتح التقرير على وضع التصميم
With Reports("MyNameReport").Printer ' الدخول الى خصائص التقرير للتعديل عليها
.LeftMargin = 720 ' الهامش الأيسر يساوي 1.25 سم
.RightMargin = 720 ' الهامش الأيمن يساوي 1.25 سم
.TopMargin = 720 ' الهامش العلوي يساوي 1.25 سم
.BottomMargin = 720 ' الهامش السفلي يساوي 1.25 سم
.ItemsAcross = 2 ' عدد الأعمدة يساوي 2
.RowSpacing = 360 ' تباعد الصفوف يساوي 0.625 سم
.ColumnSpacing = 360 ' تباعد الأعمدة يساوي 0.625 سم
End With
Reports!MyNameReport.Width = 9200 ' عرض التقرير يساوي 16 سم
DoCmd.Close acReport, "MyNameReport", acSaveYes
DoCmd.OpenReport "MyNameReport", acViewPreview
End Subاللسان يعجز عن الشكر
شكرا جزيلا وربنا يجعله في ميزان حسناتك
استاذتنا الغالية
في مشكلة
لما بيتم تحويل قاعدة البيانات الي MDE الكود لا يعمل
وده لان الكود بيفتح التقرير في وضع التصميم وده مش ممكن يحصل بعد التحويل
هل في علاج للموضوع ده؟؟؟
H_O_A كتب:استاذتنا الغالية
في مشكلة
لما بيتم تحويل قاعدة البيانات الي MDE الكود لا يعمل
وده لان الكود بيفتح التقرير في وضع التصميم وده مش ممكن يحصل بعد التحويل
هل في علاج للموضوع ده؟؟؟
أخي الكريم
هذا الكود مخصص لقواعد البيانات MDB مفتوحة المصدر فقط وليس لقواعد البيانات المحمية MDE
ولا يوجد علاج لمشكلتك اذا كانت قاعدة البيانات لديك MDE
بالتوفيق
شكرا جزيلا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…