مساعدة فى الطباعة

اشرف صبور محمد · يونيو 6, 2022

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

هذا الملف تم بمساعدة حضراتكم

الرجاء من حضراتكم اضافة اختصار للطباعة بحيث تطبع ال 45 ورقة مرة واحدة بامر واحد بحيث يكون فى اختيارين للطباعة فردية وجماعية فى الصفحة رقم 3

هل ده متاح ولا مينفعش وشكر

وائل عيد - Copy.xlsm

**أ / محمد صالح** · يونيو 7, 2022

لعل هذا هو المطلوب

تم استعمال الخلية T1 لاختيار طريقة الطباعة فردي أو جماعي

تغيير كود الاجراء text إلى

Sub text()
printtype = N.Range("t1")
If printtype = "فردي" Then
x = InputBox("من فضلك ادخل الرقم القومى مع تحياتى اشرف صبور ")
N.Range("t2") = x
On Error GoTo mm
i = Application.WorksheetFunction.Match(N.Range("t2"), DB.Range("c:c"), 0)
Call filldata(i)
N.PrintPreview
Call cler
Exit Sub
mm:
MsgBox "الرقم القومى غير موجود مع تحياتى اشرف صبور"
Else
lr = DB.Cells(Rows.Count, 3).End(3).Row
For r = 13 To lr
filldata (r)
ActiveSheet.PrintOut
Next r
Call cler
End If
End Sub

وفي حالة اختيار جماعية يتم طباعة الأرقام من الصف 13 إلى آخر صف مكتوب فيه

lr = DB.Cells(Rows.Count, 3).End(3).Row
For r = 13 To lr

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

Sub filldata(i)
   N.Range("c7") = DB.Cells(i, "g")
   N.Range("c8") = DB.Cells(i, "ci")
   N.Range("g7") = DB.Cells(i, "b")
   N.Range("g8") = DB.Cells(i, "c")
   N.Range("c9") = DB.Cells(i, "f")
   N.Range("c13") = DB.Cells(i, "i")
   N.Range("e13") = DB.Cells(i, "j")
   N.Range("b16") = DB.Cells(i, "l")
   N.Range("c16") = DB.Cells(i, "m")
   N.Range("d16") = DB.Cells(i, "n")
   N.Range("b22") = DB.Cells(i, "af")
   N.Range("b23") = DB.Cells(i, "ao")
   N.Range("b24") = DB.Cells(i, "ax")
   N.Range("b25") = DB.Cells(i, "bg")
   N.Range("d20") = DB.Cells(i, "q")
   N.Range("d21") = DB.Cells(i, "y")
   N.Range("d22") = DB.Cells(i, "ah")
   N.Range("d23") = DB.Cells(i, "aq")
   N.Range("d24") = DB.Cells(i, "az")
   N.Range("d25") = DB.Cells(i, "bi")
   N.Range("d26") = DB.Cells(i, "bq")
   N.Range("d27") = DB.Cells(i, "by")
   N.Range("d29") = DB.Cells(i, "cf")
   N.Range("g20") = DB.Cells(i, "w")
   N.Range("g21") = DB.Cells(i, "ae")
   N.Range("g22") = DB.Cells(i, "an")
   N.Range("g23") = DB.Cells(i, "aw")
   N.Range("g24") = DB.Cells(i, "bf")
   N.Range("g25") = DB.Cells(i, "bo")
   N.Range("g26") = DB.Cells(i, "bw")
   N.Range("g27") = DB.Cells(i, "ce")
   N.Range("g28") = DB.Cells(i, "k")
   N.Range("f29") = DB.Cells(i, "cg")
   N.Range("e20") = DB.Cells(i, "s")
   N.Range("e21") = DB.Cells(i, "aa")
   N.Range("e22") = DB.Cells(i, "aj")
   N.Range("e23") = DB.Cells(i, "as")
   N.Range("e24") = DB.Cells(i, "bb")
   N.Range("e25") = DB.Cells(i, "bk")
   N.Range("e26") = DB.Cells(i, "bs")
   N.Range("e27") = DB.Cells(i, "ca")
   N.Range("f20") = DB.Cells(i, "t")
   N.Range("f21") = DB.Cells(i, "ab")
   N.Range("f22") = DB.Cells(i, "ak")
   N.Range("f23") = DB.Cells(i, "at")
   N.Range("f24") = DB.Cells(i, "bc")
   N.Range("f25") = DB.Cells(i, "bl")
   N.Range("f26") = DB.Cells(i, "bt")
   N.Range("f27") = DB.Cells(i, "cb")
   N.Range("c31") = DB.Cells(i, "cl")
   N.Range("g31") = DB.Cells(i, "cm")
End Sub

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

بالتوفيق

طباعة فردي أو جماعي.xlsm