زر لطبع عدة قوائم بضغطة واحدة

[ابو عبدالرحمن البغدادي]

السلام عليكم

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

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

، طلبي ممكن ام خيالي

عيدكم مبارك

عمل زر طباعة عدة قوائم.rar

تم تعديل سبتمبر 25, 2015 بواسطه ابو عبدالرحمن البغدادي

[عادل حنفي]

اخي ابو عبدالرحمن البغدادي

تم عمل زر في شيت البحث لطباعة كل كود تم كتابته في العمود G  من الصف رقم 4 الي 14 طبعا ممكن زيادة المدي

جرب الملف وارجو ان يكون المطلوب

تحياتي

عمل زر طباعة عدة قوائم.rar

[ابو عبدالرحمن البغدادي]

السلام عليكم

ممتاز - يتم تحويل الاكواد المطلوب طبعها الى PDF 

والعملية تم بنجاح 

ممكن شرح كيفية زيادة المدى الى 25 قائمة 

جزيت خيرا - مشكور

 

[عادل حنفي]

الحمد لله

اتغيير المدي في الكود الخاص بزر الطباعة وكوده هو

 

Private Sub CommandButton1_Click() '
r = Sheets("الاكواد").Range("A3").Address
s = Sheets("الاكواد").Range("A2").End(xlDown).Address
For i = 4 To 14
If Cells(i, 7) <> "" Then
o = Cells(i, 7).Address
 g = Application.WorksheetFunction.CountIf(Sheets("الاكواد").Range(r, s), Range(o))
 If g = 1 Then
 Range("A2") = Cells(i, 7)
' If Range("f5") <> "" Then
m = Range("A1").Address
n = Range("F4").End(xlDown).Address
  ActiveSheet.PageSetup.PrintArea = m & ":" & n
  ActiveSheet.PrintOut Copies:=1
 ' End If
End If
End If
Next
End Sub

قم بتغيير ال14 في السطر التالي بالزيادة او النقصان

For i = 4 To 14

تحياتي

[ابو عبدالرحمن البغدادي]

مشكور

جزيت خيرا

 

[ابو عبدالرحمن البغدادي]

السلام عليكم