مطلوب تعديل كود الطباعه

[أبومروان]

الســاده الافاضل تحياتي......

برجاء التعديل علي هذا الكود

Sub Printout()
Sheets("plant").Range("a1:E20").Printout
MsgBox "تم الطباعه بنجاح ....", 64

End Sub

حيث عند الطباعه تظهر رساله بعددالنسخ المراد طباعتها نسخه او نسختين

ولكم جزيل الشكر والتقدير

 

 

[أبومروان]

تعديل....

هل يوجد كود عند الطباعه يخرج مسج بوكس بيسائل فيه كم نسخه تريد ١. او ٢. اواكتب عدد النسخ 

[جمعة العوامي]

ضع الكود ده .. في مودول .. وجرب ان شاء الله يفي بالغرض ...

Option Explicit

Sub Print_by_number()
'في حالة الطباعة بدون معاينة
Dim m As Integer
m = InputBox("كم نسخة تريد طباعتها : ", "اوفيسنا ")
ActiveSheet.PrintOut Copies:=m, Collate:=True


Range("b5").Activate
End Sub

Sub Print_by_number2()
'في حالة الطباعة بمعاينة
Dim m As Integer
m = InputBox("كم نسخة تريد طباعتها : ", "اوفيسنا ")
ActiveSheet.PrintOut Copies:=m, Preview:=True, Collate:=True


Range("b5").Activate
End Sub

 

[أبومروان]

الف مليون شكر لحضرتك تم التجربه وشغاااااال زاي الفل