كود طباعه

[a12]

ممكن المساعدة فى عمل كود طباعة الشهادلت  مره واحدة ولو امكن الشرح(بدل ماتديني سمكة...علمني الصيد)

طباعة.rar

[حسين العصلوجى]

جرب المرفق اتمني ان يفى بالغرض

Sub RoundSameSideCornerRectangle3_Click()
Set ws = Worksheets("ãÑÇíå")
Set ws2 = Worksheets("ÔåÇÏÇÊ")

For x = 10 To ws.Range("c65536").End(xlUp).Row
ws2.Cells(14, 3) = ws.Cells(x, 3).Value
ws2.Cells(14, 10) = ws.Cells(x, 2).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

بالنسبة للشرح 

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

 

H-طباعة.rar

 

 

[a12]

بارك الله فيك