ما الخطأ في هذا الكود

[مؤمن خليل]

مرفق ملف به توزيع اللجان وارقام الجلوس وعند طباعة كل ارقام الجلوس او اللجان

لا يتم طباعة الصفحة الاولي

الجديد كشوف المنادة.rar

[رجب جاويش]

السلام عليكم

جرب هذا التعديل

Sub طباعة_الشهادات()

Dim i As Integer

Sheets("بطاقة").Select

    For i = Range("u1") To Range("w1") Step 10

	    Range("I1") = i

    If i <= Range("w1") Then

	   Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    End If

    Next i

   Sheets("بطاقة").Select

End Sub

الجديد كشوف المنادة.rar

[مؤمن خليل]

اولا جزاك الله خيرا علي سرعة الرد وعلي هذا الاهتمام البالغ السرعة في هذا الموقع الرائع

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

جلوس والمطلوب 998 رقم يعني 100 صفحة وليس 10 صفح

تم تعديل ديسمبر 22, 2012 بواسطه مؤمن خليل

[رجب جاويش]

السلام عليكم

معك حق أخى الفاضل

وعذرا لذلك

هذا هو التعديل المطلوب

وقد قمت بتجربته

وهو يطبع فعلا 100 صفحة

Sub طباعة_الشهادات()

Dim i As Integer

Sheets("بطاقة").Select

    For i = Range("u1") To Range("V1") Step 10

	    Range("I1") = i

    If i <= Range("V1") Then

	   Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    End If

    Next i

   Sheets("بطاقة").Select

End Sub

الجديد كشوف المنادة.rar

[مؤمن خليل]

جزاك الله خيرا الله ينفع بكم المسلمين هو داه المطلوب

افضل موقع يقدم بلا حساب ولكن الاجر والصواب من الله خير ونعم الثواب