الرجاء المساعدة في تحديد جدول الطباعة

[wya_wya21]

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

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

اولا انا عندي جدول مرتبات الموظفين يحتوي على تصنيف المرتب من اساسي واضافي وخصم

واريد ان اطبع هذه البيانات على الاظرف التي يستلم فيها الموظف مرتبه

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

فأرجوا ان تساعدوني ان اعمل فورم جاهز للطباعة و اجعل الاكسيل يضيف بيانات المرتب تلقائي في الجدول

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

وهذا الملف للتوضيح

وشكرا

test.rar

[طارق محمود]

السلام عليكم

أهلا ومرحبا بك أخي الكريم

هناك موضوع مماثل علي الرابط

http://www.officena.net/ib/index.php?showtopic=27594&view=&hl=%D8%C8%C7%DA%C9&fromsearch=1

عموما مرفق الملف وبه التغييرات التالية

تسمية مجال البيانات myrange

تغيير طفيف في معادلات الجدول المطبوع باستخدام دالة Vlookup

زر للنقل والطباعة يعمل بالكود التالي:

Sub Shf_Pr()


t = [A10000].End(xlUp).Row

For rw = 3 To t

[P4] = Cells(rw, 1)

	ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next


End Sub

تفضل المرفق

test_Tareq.rar

[wya_wya21]

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

[wya_wya21]

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

اسف اني بتعبك معايا بارك الله فيك

[طارق محمود]

يمكنك نقل الزر كالتالي

أولا طبعا يكون عندك ورقة أخري

ثانيا كليك يمين الماوس علي الزر

ثالثا قطع (Cut)

ثم في الورقة الجديدة لصق Paste

[خالد القدس]

السلام عليكم

كل عام وأنتم بخير

جزاكم الله خيرا أستاذ طارق

[wya_wya21]

السلام عليكم

اعتذر على تأخري في الرد

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