مساعدة في كود الطباعة

[حراثي تواتي]

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

هذه المرة انا اريد طباعة الصفحة من اليوزر فورم بنفس هذا الكود مع التعديل عليه

Sub PrintAll()
    Dim iStart As Integer, iEnd As Integer, I As Integer
    iStart = Feuil1.Range("J7").Value
    iEnd = Feuil1.Range("L7").Value
    For I = iStart To iEnd
        Feuil1.Range("I3").Value = I
        Feuil1.PrintPreview
    Next I
End Sub

الملف و الشرح مرفقان

3طباعة.rar

[ياسر خليل أبو البراء]

أخي الكريم حراثي

ضع الكود التالي في حدث الفورم

Private Sub CommandButton1_Click()
    Dim iStart As Integer, iEnd As Integer, I As Integer
    
    iStart = Feuil1.Range("J7").Value
    iEnd = Feuil1.Range("L7").Value
    
    For I = iStart To iEnd
        Feuil1.Range("I3").Value = I
        Me.Hide
        Feuil1.PrintPreview
    Next I
End Sub

تقبل تحياتي

 

[حراثي تواتي]

7 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم حراثي

ضع الكود التالي في حدث الفورم

Private Sub CommandButton1_Click()
    Dim iStart As Integer, iEnd As Integer, I As Integer
    
    iStart = Feuil1.Range("J7").Value
    iEnd = Feuil1.Range("L7").Value
    
    For I = iStart To iEnd
        Feuil1.Range("I3").Value = I
        Me.Hide
        Feuil1.PrintPreview
    Next I
End Sub

تقبل تحياتي

 

أستاذي الفاضل بارك الله فيك و مدّك الله بالصحة و العافية و طول العمر و دمت ذخرا لنا

[ياسر خليل أبو البراء]

جزيت خيراً أخي الكريم حراثي على دعواتك الطيبة المباركة ، ولك بمثل إن شاء الله