حراثي تواتي قام بنشر أبريل 4, 2016 مشاركة قام بنشر أبريل 4, 2016 ايها الاخوة الافاضل السلام عليكم و رحمة الله وبركاته هذه المرة انا اريد طباعة الصفحة من اليوزر فورم بنفس هذا الكود مع التعديل عليه 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 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 4, 2016 مشاركة قام بنشر أبريل 4, 2016 أخي الكريم حراثي ضع الكود التالي في حدث الفورم 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 تقبل تحياتي رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر أبريل 4, 2016 الكاتب مشاركة قام بنشر أبريل 4, 2016 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 تقبل تحياتي أستاذي الفاضل بارك الله فيك و مدّك الله بالصحة و العافية و طول العمر و دمت ذخرا لنا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 4, 2016 مشاركة قام بنشر أبريل 4, 2016 جزيت خيراً أخي الكريم حراثي على دعواتك الطيبة المباركة ، ولك بمثل إن شاء الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.