طلب كود مساعده في كيفيه طباعه اكثر من نسخه مع تغيير التاريخ تلقائيا عند الطباعه

[moaaz2020]

 

اود اضافه زر طباعه للبانات في الشيت p.R.T يقوم بطباعه عدد النسخ المكتوب في الخليه E3 وتكون  طباعه اول ورقه بالتاريخ المكتوب في الخليه  C3 والنسخه الثانيه بتغيير الشهر فقط مثلا النسخه الاولى 26-2-2021 والثانيه 26-3-2021 والثالثه 26-4-2021   الفكره هي طباعه شيكات الاقساط .. ويكون الفرق بين كل شيك وشيك شهر ...حاولت اسجل مايكرو لكني فشلت لانه ينخ نفس التواريخ المكتوبه عند التسجيل ... تحياتي

تجربه الطباعه.xlsm

[حسين مامون]

جرب الكود التالي

Option Explicit

Sub PRINT1()
Dim DT, dt2
Dim RG
Dim x
DT = Sheets("ST").Range("c3"): dt2 = DT
RG = Sheets("ST").Range("e3")
For x = 1 To RG
      Sheets("P.R.T").Range("b3") = dt2
    Sheets("P.R.T").PrintOut Copies:=x, Collate:=True, _
        IgnorePrintAreas:=False
        dt2 = Format(DateAdd("m", 1, dt2), "yyyy-mm-dd")
        Next
End Sub

 

تجربه الطباعه.xlsm

[moaaz2020]

بالنسبه لتغيير التاريخ فهو المطلوب .. لكن يقوم بطباعه شيك واحد بالتاريخ الاول وشيكين للتاريخ الثاني وثلاثه للتاريخ الثالث وهكذا ... اريد نسخه واحده فقط لكل تاريخ

اعتقد ان الخطا مني فالمقصود بعدد النسخ المكتوبه في الخليه D3 هو عدد تسلسل التواريخ مثلا عند كتابه 2 يطبع شهرين وعند كتابه 12 يقوم بطباعه شيكات سنه كامله اي 12 شيك

 

وشكرا لتفاعلك ومجهودرك واعتذر لانني انشغلت قليلا

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته 

على حسب فهمى لسؤالك

بعد اذن الاستاذ حسين 

عدل هذا السطر 

Sheets("P.R.T").PrintOut Copies:=x, Collate:=True, _
        IgnorePrintAreas:=False

الى هذا السطر 

Sheets("P.R.T").PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

 

[moaaz2020]

Option Explicit

Sub PRINT1()
Dim DT, dt2
Dim RG
Dim x
DT = Sheets("ST").Range("c3"): dt2 = DT
RG = Sheets("ST").Range("e3")
For x = 1 To RG
      Sheets("P.R.T").Range("b3") = dt2
    Sheets("P.R.T").PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
        dt2 = Format(DateAdd("m", 1, dt2), "yyyy-mm-dd")
        Next
End Sub

 

 

قمت بتعديل السطر الملون واشتغل تمام .. شكرا

[حسونة حسين]

الحمد لله الذي بنعمته تتم الصالحات