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

[Ahmed Emannan]

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

ولكن دون فائدة

الشرح في المرفق

Print.rar

[احمدزمان]

اخي الكريم

حسب مافهمت من طلبك

تم تعديل الكود لمرجع العمود الذي به الرقم 1 من CA الى CI

Sub Print_All_PAY_SLIPS()

	For i = 9 To 500

    	If Sheets("ÈíÇäÇÊ ÇáãÑÊÈÇÊ ÇáÃÓÇÓíÉ").Cells(i, "Ci") = 1 Then

        	Sheets("ÈØÇÞÉ ãÑÊÈ").Cells(1, "W") = Sheets("ÈíÇäÇÊ ÇáãÑÊÈÇÊ ÇáÃÓÇÓíÉ").Cells(i, "B")

        	Sheets("ÈØÇÞÉ ãÑÊÈ").PrintOut

    	End If

	Next

End Sub

[احمدزمان]

the file

Print.rar

[خالد القدس]

السلام عليكم

أكرمك الله أستاذ أحمد

اشتقنا إلى ابداعاتك المميزة

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

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

بعد إذن الإخوة الكرام، قمت بإضافة بعض المعادلات وتغيير في جزء من الكود في ملف "طريقة لطباعة كشف الراتب لجميع الموظفين"...

أنظر الملف المرفق...

بن علية

طريقة لطباعة كشف الراتب لجميع الموظفين1.rar

[خالد القدس]

السلام عليكم

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

اضافة جميلة

[احمد فضيله]

بارك الله فيكم

[Ahmed Emannan]

مشكور اخي احمد وبارك الله فيك

ومشكور للاخوة على المرور الطيب

تحياتي