ربما يكون العنوان غير واضح إلا أنني أريد حل لمشكلة مرت معي وهي أنني أنشأت برنامجا صغيرا أريد عندما انقر معاينة الطباعة أو الطباعة ان يطبع الجداول في التقرير حتى اخر الصفحة يعني ان يمتلئ ورقة A4 كاملة وإن كانت الفاتورة تعتمد على خلية واحدة او خليتين .....
فقمت بإنشاء نموذج فرعي وادخلته للتقرير اسمه Ahmed واردت عندما انقر معيانة الطباعة ان تظهر الجداول حتى مجموع الخلايا العامودية ، بشرط ان تكون عدد الصفوف محددة ، اي يمكنني ان احددها من 18 صف إلى 25 صف ، حسب العرض. والصورة الموضحة والملف مرفق
اخي الكريم عذرا انا لدي تنسيق 2003
عموما ادخل في خصاص التقرير في حدث عند الصفحة انسخ هذا الكود
[console]Dim intNumLines As Integer
Dim intLineNumber As Integer
Dim intTopMargin As Integer
Dim ctl As Control
Dim intLineHeight As Integer
Dim intLineLeft As Integer
Dim intLineWidth As Integer
intNumLines = 50
intLineLeft = 720
intLineWidth = 1440 * 5
intTopMargin = Me.Section(3).Height
intLineHeight = Me.Section(0).Height
For intLineNumber = 0 To intNumLines - 1
Me.Line (intLineLeft, intTopMargin + (intLineNumber * intLineHeight))-Step(intLineWidth, 0)
Next
وابلغني بالنتيجة
بالتوفيق
اخوك ------------- محمود المصري
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
الكود الاخير يعطي خطأ
Me.Line (intLineLeft, intTopMargin + (intLineNumber * intLineHeight))-Step(intLineWidth, 0)
اخي الكريم
الكود يعمل لدي 100% بدون اخطا لعلي وعسي ان يكون نسخة الاوفيس تختلف من اصدار لاصدار
علي العموم جرب انشئ تقرير فارغ وضع الكود في خصائص التقرير في حدث عند الصفحة وشوف النتيجة كده كتجربة فقط
(اللَّهُمَّ أَنْتَ رَبِّي لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ أَبوءُ لَكَ بِنِعْمتِكَ علَيَ وأَبُوءُ بذَنْبي فَاغْفِرْ لي فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ)
اذا كانت المشاركة مفيدة لك فلا تبخل علينا بالتقييم
الله يعطيك العافية
من ناحية الكود الكود شغال مئة بالمئة
لكن من ناحية ان يخدمني فهو يخدمني ليس في هذا البرنامج، في برنامج اخر خطر لي ، وإن استفدت منه.
اما بالنسبة لهذا البرنامج كون يملئ كامل الصفحة، فأنا اريد أن يملئ فقط ورقة البياانات في النموذج الفرعي المدرج في التقرير ،
اما الحل فقد وجدت علاج للمشكلتي في البرنامج، فقد أجبرت على تغيير الفكرة كاملة .
سأدرجه في هذا الموضوع بعد ان أتمه وسيكون فائدة للأعضاء
ولك جزيل الشكر اخي محمود.
الطريقة التي اتبعتها يحتاج إلى قيمة الصفر في الادخال.فتركتها ، الآن احتاج إلى مساعدتك
على كل اخي الكريم (محمد) هل بالامكان جعل النموذج الفرعي في حالة عرض ورقة البيانات إلى جداول مثل الأكسل.، أي أحدد 18 جدول عند ادخال اي قيمة في الجدول الاول
يعني هل بالإمكان
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…