كود لتحديد عدد نسخ طباعة الفورم

[نصر صالح]

أرجو المساعدة في كود يقوم بطباعة عدد محدد من النسخ المطلوبة عند طباعة الفورم

للللللللللللللللللل.rar

[خزاني]

اجعل العدد المطلوب للطباعة في الخليفة ("A1")

الكود

Sub Macro1()
Dim Nbp As Byte
With Sheets("المبيعات")
  Nbp = .Range("A1").Value
  For p = 1 To Nbp
    .Range("L28") = p
    .PrintOut Copies:=2, Collate:=True
  Next
  .Range("L28") = ""
End With
End Sub