طباعة آخر صف عند طباعة آخر بيانات فى كشف الحساب .. هل مستحيل

[ابوحمزه المصرى]

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

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

هل الصف المطلوب طباعته (الذي يحوي المجموع ) مطلوب في آخر صفحة فقط ..؟؟

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

[ابوحمزه المصرى]

هل الصف المطلوب طباعته (الذي يحوي المجموع ) مطلوب في آخر صفحة فقط ..؟؟

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

اخى اريد طباعة صف الاجمالى فى اخر البيانات الخاصه بالعميل دون اخفاء صفوف لانى بغير العميل من اعلى الكشف من قائمة العملاء

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

ممكن تخفي الصفوف وبعد الطباعة ترجع تاني ..ايه المشكلة في كدا!!

[ابوحمزه المصرى]

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

[ابوحمزه المصرى]

حد يرد عليا مش معقوله مفيش حل

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

أنا قدمت لك الحل المناسب بس إنت بتدور على حل آخر ..

إذا لم يكن لديك حل فارضى بالحل الموجود إلى أن يتواجد غيره (حكمة اليوم)

[بن علية حاجي]

جرب الملف المرفق لعل فيه الحل أو بعضه...

 

بن علية

 

المرفق : طباعة كشف الحساب.rar  

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

الأخ الحبيب والأستاذ الكبير بن عليه

بارك الله فيك وجزاك الله خير الجزاء

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

عموما هذا حل آخر يعتمد على التصفية AutoFilter بحيث يتم تصفية الصفوف لتظهر الصفوف الغير فارغة فقط .. وبهذا يتحقق المطلوب أيضاً ..

Sub PrintData()
    Application.ScreenUpdating = False
        With Sheet4
            .AutoFilterMode = False
            .Range("D4:S5").AutoFilter Field:=1, Criteria1:="<>"
            ActiveWindow.SelectedSheets.PrintOut Copies:=1
            Cells.AutoFilter
        End With
    Application.ScreenUpdating = True
End Sub

Hide Blank Rows Using AutoFilter.rar

[ابوحمزه المصرى]

أخى ممتاز جداً وبارك الله فيك بس بيطبع زر الطباعة فى صفحه اخرى ما الحل

[ابوحمزه المصرى]

اخى 

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

تم تعديل مارس 26, 2015 بواسطه salah4444

[ابوحمزه المصرى]

اخى 

بن علية  بارك الله لك .................انا اريد ان اطبق  المثال على كافة الملفات اللى عندى كيف اعمل نفس الزر وربطه بالاكواد انا جربت ملم يقبل اكسل ورفض الحفظ

[ابوحمزه المصرى]

لقد توصلت للحل اشكر كل من ساعدنى واهتم لأمرى وعاوننى

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

الأخ الفاضل احذف الزر الموجود ..لأنه شكل من الأشكال وهيطلع في الطباعة وارسم زر Form Button من التبويب Developer هتلاقي كلمة Insert افتحها واختار أول شكل وارسمه

وبعدين كليك يمين على الشكل ثم Assign Macro واختار اسم الماكرو ..

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

لم أرى مشاركتك أنك توصلت للحل .. ولم توضح أي الحلول الذي أقدمت عليه حتى تفيد غيرك فيما بعد

تقبل تحياتي

ولا تنسى أن تحدد المشاركة التي أعجبتك كأفضل إجابة

[ابوحمزه المصرى]

اخى الكريم الحل هو اجابتكم على بس الموضوع انى لم اتعامل باكواد vba لذا كنت عايز طريقة نسخ الكود وربطه بالزر وتوصلت اليها بالضغط كليك يمين على الشيت واختيار insert <module ثم  انسخ الكود ولصقه فى نافذة الـ module

ثم طريقة الربط كليك يمين على الشكل ثم اختيار تعيين ماكرو والضغط عالماكرو دبل كليك ثم عرض الشيت بفواصل الصفحات وتحديد الصفحه بالسحب ولابد ان يكون الشكل التلقائى خارج نطاق الصفحات حتى لا يتم طباعته ثم الحفظ بنوع الملف Excel Macro-Enabled Workbook

هذا وبالله التوفيق لو ان لك اى تلميح او اضافه اكن شاكراً

تم تعديل مارس 26, 2015 بواسطه salah4444

[ابوحمزه المصرى]

شكراااااااااااااااااا

تم تعديل مارس 26, 2015 بواسطه salah4444