تعديل كود طباعة متعدد

[Eid Mostafa]

الأخوة الأعزاء

السلام عليكم ورحمة الله وبركاته

الملف المرفق به كود طباعة متعدد كالتالى :-

الأول : طباعة بيانات الموظف الحالى بعد المعاينة.

الثانى : طباعة بيانات كل الموظفين (31 موظف) بعد المعاينة.

الثالث : طباعة بيانات كل الموظفين (31 موظف) مباشرة ودون معاينة.

فأرجو منكم التكرم بتعديله كى يتلائم مع المعطيات أعلاه

فى إنتظار إفاداتكم القيمة

أخوكم

عيد مصطفى

Payroll Tax - 2011.rar

[الشهابي]

أخي العزيز / عيد مصطفى

هذه محاولتي لعمل ما طلبته و إن شاء الله يكون هو المطلوب

وضعت لك ثلاثة أكواد

الكود الأول يقوم بتحديد الصفوف المكررة ويحدد ناحية الطباعة ثم يقوم بمعاينة الطباعة

وعند غلق المعاينة يقوم بطباعة الصفحة

الكود الثاني يتم أولا تعين عدد الموظفين المطلوب طباعة بياناتهم في الخلية [ AH1] رقم أول موظف وفي الخلية [ AH2] رقم آخر موظف

يقوم بنفس عمل الكود الأول إلا أنه بعد عمل المعاينة وعند غلقها يطبع الموظف الأول ثم معاينة للموظف الثاني وعند غلق المعاينة يطبع صفحة ذلك الموظف ويعمل معاينة للموظف اللي بعده وهكذا حتى آخر موظف حددته في الخلية [ AH2]

الكود الثالث يطبع مباشرة كل الموظفين حسب تحديدهما في الخليتين المشار إيهما سابقا

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

والله الموفق

واعتذر لك أخي مرة أخرى مما بدر مني من غير قصد في موضوعك السابق

Payroll Tax - 20111.rar

[احمدزمان]

السلام عليكم

ممتاز جدا اخي الشهابي

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

انا صراحة حاولت اعمل حاجة بس مافهمت

لمن دخلت على الكود لقيت فيه اسماء اوراق ماهي موجودة في الملف

لذلك احترت في المطلوب

اكرر شكري وتقديري لك

[الشهابي]

أستاذي القدير / أحمد زمان

هذا منكم وإليكم وما قمت به فقط النقل كما أشرت سابقاً

[Eid Mostafa]

_{أخى العزيز / الشهابى}

_{السلام عليكم ورحمة الله وبركاته}

_{أرجوك لا تأخذ الأمر بتلك الحساسيه}

_{فصدقنى وأقولها بمنتهى الأمانه}

_{العتاب لا يأتى إلا بين الأحباب}

_{سأرى الملف وأطلعك بالنتيجة}

_{لك خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

[Eid Mostafa]

_{أخى العزيز / الشهابى}

_{السلام عليكم ورحمة الله وبركاته}

_{عذراً ولكن لماذا أخرجت السطر الأول من نطاق الطباعة ؟}

_{وهل بإمكانك إرجاعه مرة أخرى ؟}

_{حيث أنه مهم لأنه يحتوى على إسم الموظف}

_{لك خالص شكرى وتقديرى}

_أخوك

_{عيد مصطفى}

[الشهابي]

أخي الحبيب / عيد مصطفى فعلا الله يدوم المحبة بيننا

وعتابك حلو يا محلى العتاب

نعم أخي يمكنك ذلك من خلال الدخول في الكود والتعديل في الثلاثة الأكود السطرين التاليين

.PrintTitleRows = "$2:$3"

    End With

ActiveSheet.PageSetup.PrintArea = "$A$2:$AA$18"

ليصبحا بهذا الشكل

.PrintTitleRows = "$1:$3"

    End With

ActiveSheet.PageSetup.PrintArea = "$A$1:$AA$18"

[Eid Mostafa]

أخي الحبيب / الشهابى

بالفعل أخى العزيز قمت بالتعديل وأتى بالنتيجه المرجوه

أدام الله المحبه وألف بين قلوبنا

لك خالص شكرى وتقديرى

أخوك

عيد مصطفى