أوامر طباعة بشروط

[محمد المحمودى]

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

 

ثانيا : أردي من الموجودين أن يفيدونى عن طريقة طباعة شيت مرتبات متفلتر بمفرده

 

بمعني أنا عندى أقسام كتير علي شيت المرتبات وكل قسم لازم اطبعه لوحده كل أسبوع والموضوع ده بياخد منى وقت فلو ممكن أنى أديله أمر طباعه بحيث أنه يفلتر الأقسام تلقائى فى حالة الضغط على الأقسام

Data.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / محمد المحمودى

بارك الله فيك

 

تم عمل الكود التالي لتنفيذ طلبك

ان كان كما تريد نكمل العمل

Sub PRINT_AQSAM_tagroba()
Dim LastR As Long
Dim LastR1 As Long
Dim LR As Long

LR = Range("G" & Rows.Count).End(xlUp).Row
LastR1 = Sheets("Master Data Update ").Cells(Rows.Count, 7).End(xlUp).Row
LastR = Sheets("Master Data Update ").Cells(Rows.Count, 7).End(xlUp).Row
'===========================
Sheets("Master Data Update ").Range("A3:j" & LastR1).AutoFilter Field:=7, Criteria1:="الإستقبال"
 Sheets("Master Data Update ").PageSetup.PrintArea = ("A3:j" & LR)
 Sheets("Master Data Update ").PrintOut 'copies:=2
'===========================

Sheets("Master Data Update ").Range("A3:j" & LastR1).AutoFilter Field:=7, Criteria1:="الإشراف المنزلى"
 Sheets("Master Data Update ").PageSetup.PrintArea = ("A3:j" & LR)
 Sheets("Master Data Update ").PrintOut 'copies:=2

    Sheets("Master Data Update ").Range("A3").Select
Sheets("Master Data Update ").Range("A3:j" & LastR1).AutoFilter Field:=7
End Sub

واليك الملف المرفق كمثال

في انتظار ردك

تقبل خالص تحياتي

 

 

طباعة بشروط اسماء الاقسامDATA.rar