مساعدة فى التعديل علي الكود

[الذول]

السادة الافاضل أعضاء المنتدي

السلام عليكم

ارجوا التعديل علي كود معاينة الطباعة مع الطباعة واخفاء الصفوف الفارغة بحيث يظهر جميع الصفحات في المعاينة من e5:f5 وطباعتها

مع إخفاء الصفوف الموجود في المدي المحدد

ولكم جزيل الشكر

 

المعادلة.rar

[ياسر خليل أبو البراء]

أخي الكريم الذول

ممكن مزيد من التوضيح ..اطلعت على الملف ووجدت كود يقوم بعملية المعاينة والطباعة ثم يقوم بتغيير قيمة الخلية E5 وفي كل مرة تتم عملية الطباعة ثم إخفاء الصفوف من 8 إلى 32 ثم إظهار كاقة الصفوف ولا أعلم ما الفائدة من الإظهار بعد الإخفاء

عموماً وضح طلبك بالتفصيل لتجد المساعدة المناسبة

تقبل تحياتي

 

[الذول]

السلام عليكم

استاذي الفاضل / ياسر

بالنسبة للطباعة انا عاوز معاينة علي اللجان كلها الموجودة في e5:f5 وليس علي اللجنة الحالية وطباعتها بالنسبة لاخفاء الصفوف اثناء الطباعة فقط لان عدد اللجان متغير انا عامل عدد الصفوف علي الحد الأقصى للعدد فيظهر صفوف فارغة بيتم اخفائها اثناء الطباعة فقط

وشكر علي الرد

[ياسر خليل أبو البراء]

إليك الكود التالي حسب ما فهمت من توضيحك السابق

Sub Test()
    Dim I As Integer, J As Integer

    Application.ScreenUpdating = False
        For I = Range("E5") To Range("F5")
            Range("E5") = I
            If I <= Range("E5") Then
                For J = 8 To 32
                    If Cells(J, 3).Value = "" Then
                        Cells(J, 3).EntireRow.Hidden = True
                    End If
                Next J
    
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                Rows.Hidden = False
            End If
        Next I
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

 

[الذول]

السلام عليكم

شكرا علي الاستجابة السريعة وربنا يجعله في ميزان حسناتك

في ملحوظة الكود لا يعمل معاينة قبل الطباعة

وشكرا

[ياسر خليل أبو البراء]

يمكنك نسخ السطر الذي يقوم بالمعاينة من الكود الموجود في الملف الأصلي ...ستجده في أول سطر ..

وضعه في المكان المناسب لك .. إذا كنت تريد المعاينة قبل كل ورقة فسيكون الأمر ممل بعض الشيء (هذا مجرد رأي)

[الذول]

المقصود يااستاذي المعاينة لكل اللجان مرة واحد الموجودة في ورقة العمل

لاحظت ان إخفاء الصفوف بعد الصف 32 وليس بعد الصف الفارغ من اسم الطالب

وشكرا

[ياسر خليل أبو البراء]

هل تقصد معاينة الورقة الرئيسية Data ..؟؟

بالنسبة للإخفاء يقوم الكود بإخفاء الصفوف الفارغة (ما بين 8 و 32 ) .. ثم يعطي أمر الطباعة ثم يظهر الصفوف كلها مرة أخرى استعداداً لإدخال جديد..

حاول توضح بالصور المشكلة التي تعاني منها ..فأنا لا أحب التخمين

[الذول]

السلام عليكم

المقصود بالمعاينة هي ورقة العمل رقم 1 ويقوم بمعاينة جميع اللجان وليس اللجنة الحالية مثال دلوقت مختار اللجنة رقم خمسة بيعمل معاينة علي لجنة رقم خمسة فقط

انا عاوز معاينة علي جميع اللجان الموجودة في الورقة  1