كود للطباعة

[2saad]

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته

هذا الكود نفذته كما هو لطباعة نطاق معين ( صفحة ) عدد النسخ 4

ولكن طبع نسخة واحدة

فما الحل ؟

 

() Sub PrintOut
    Dim RNG As Range
    Set RNG = Range("J1:R49")
    RNG.PrintOut Copies:=4, collate:=True
End Sub

[أبومروان]

Application.PrintOut Copies:=4, Printer:="HP Printer", Collate:=True