بسم الله والصلاة والسلام على رسول الله
أخي الفاصل tofimoon4
بعد إذن الأساتذة الأفاضل وعمالقة الإكسيل إليك هذا الكود ولعله ينفع
الكود الأول ( لاستخدام الطابعة الافتراضية )
Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
الكود الثاني ( لاستخدام أي طابعة أخرى )
Application.ActivePrinter = "Canon iR C2570 on LPT1:"
Activewindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Canon iR C2570 on LPT1:", Collate:=True
وفى هذا الكود يتم كتابة اسم الطابعة ثم on ثم المخرج الموصل عليه الطابعة
مع الأخذ فى الاعتبار انه إذا تم حذف الطابعة التي سوف تقوم بتدوين اسمها فى الكود سوف يظهر لك رسالة خطأ
أسأل الله أن ينفع ويفي بالغرض وأتمنىى من الأساتذة الأفاضل إذا كان هناك كود أفضل من ذلك الإفادة به