مشكلة في كود طباعة راس وتذييل الصفحة من خلايا معينة

[مصطفى محمود مصطفى]

السلام عليكم
اساتذتنا الافاضل  شكرا لجهودكم جزاكم الله خيرا 
كود استخدام خلايا معينة لراس وتذييل الصفحة لايعمل اذا كانت الطباعة على الزر الخاص بكود الطباعة المخصص لبرنامج توزيع الطلبة على اللجان , بينما يعمل اذا كانت الطباعة من ايقونة برنامج الاكسل  مباشرة. ارجو التفضل بابداء المساعدة لحل المشكلة .. شكرا

 

 

 

توزيع الطلبة على اللجان.rar

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

وعليكم السلام

أخي الكريم جربت الطباعة بالكود ورأس الصفحة يظهر في صفحات الطباعة بشكل عادي ..فلم أقف على مشكلتك ..

هلا تفضلت بتوضيح المسألة بالصور ، مع ذكر إصدار الأوفيس لديك

تقبل تحياتي

 

[مصطفى محمود مصطفى]

السلام عليكم

اخي الاستاذ الفاضل ابو البراء جزاكم الله خيرا

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

اما الاوفيس لدي 2010

شكرا لكم وفقكم الله

الصور.rar

 

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

أعتقد أن الكود لأخونا بن عليه حاجي وإن شاء الله يتدخل حيث أنه أكثرنا دراية بهذا الكود ، فقد يستلزم الكود منك التعديل بحيث يتوافق مع ملفك ..

ولكن بعد التمعن في الكود وجدت أنه لا علاقة له بوضع رأس لورقة العمل ..يمكنك تسجيل ماكرو تضع في التسجيل رأس لورقة العمل ، وتقوم بالتعديل في الكود بحيث تشير إلى الخلايا المطلوبة

عموماً سأحاول العمل على الملف إن شاء الله

 

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

جرب التعديل التالي أخي العزيز

Sub Test()
    Application.Calculation = xlManual
        With Sheets("اللجان")
            .Calculate
            For J = [am3] To [an3] Step 20
                [I2] = IIf(J <= [an3], J, ""): [R2] = IIf(J + 1 <= [an3], J + 1, ""): [aa2] = IIf(J + 2 <= [an3], J + 2, ""): [aj2] = IIf(J + 3 <= [an3], J + 3, "")
                [I7] = IIf(J + 4 <= [an3], J + 4, ""): [R7] = IIf(J + 5 <= [an3], J + 5, ""): [aa7] = IIf(J + 6 <= [an3], J + 6, ""): [aj7] = IIf(J + 7 <= [an3], J + 7, "")
                [I12] = IIf(J + 8 <= [an3], J + 8, ""): [R12] = IIf(J + 9 <= [an3], J + 9, ""): [aa12] = IIf(J + 10 <= [an3], J + 10, ""): [aj12] = IIf(J + 11 <= [an3], J + 11, "")
                [I17] = IIf(J + 12 <= [an3], J + 12, ""): [R17] = IIf(J + 13 <= [an3], J + 13, ""): [aa17] = IIf(J + 14 <= [an3], J + 14, ""): [aj17] = IIf(J + 15 <= [an3], J + 15, "")
                [I22] = IIf(J + 16 <= [an3], J + 16, ""): [R22] = IIf(J + 17 <= [an3], J + 17, ""): [aa22] = IIf(J + 18 <= [an3], J + 18, ""): [aj22] = IIf(J + 19 <= [an3], J + 19, "")
    
                With .PageSetup
                    .LeftHeader = "اللجنة " & Sheet2.Range("Q5").Value & vbCrLf & "القاعة " & Sheet2.Range("Q6").Value
                    .CenterHeader = "امتحانات الطلبة" & vbCrLf & "للعام " & Sheet2.Range("Q7").Value
                    .RightHeader = Sheet2.Range("Q3").Value & vbCrLf & Sheet2.Range("Q4").Value
                End With
    
                .Calculate
                ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
            Next J
        End With
    Application.Calculation = xlAutomatic
End Sub

تقبل تحياتي

[مصطفى محمود مصطفى]

الاستاذ الفاضل ابو البراء المحترم

وفقكم الله لما يحب ويرضى

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

قمت بالتعديل على ورقة واحدة والحمد لله وساقوم بالتعديل على باقي الاوراق

لكم وافر الاحترام والتقدير

 

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

الحمد لله أن تم المطلوب على خير ، والحمد لله الذي بنعمته تتم الصالحات

وفقنا الله وإياكم لما فيه الخير والصلاح لجميع المسلمين

تقبل تحياتي