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

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

السلام عليكم اخواني الافاضل

أريد طباعة كشف نقاط كل طالب الموجودة في صفحة واحدة دون أن أغير قيمة متغير الخلية المحددة

الشرح و الملف في المرفقات

طباعة.rar

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

هل من مجيب ,,, و بارك الله في الجميع مسبقا

[سليم حاصبيا]

جرب هذا الملف

 

طباعة salim.rar

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

5 دقائق مضت, سليم حاصبيا said:

جرب هذا الملف

 

طباعة salim.rar

شكرا على الرد

و لكن انا اريد طباعة كشف كل طالب لوحده و من دون أن اغير في قيمة الخلية I3 

مثال

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

ما في إجابة ؟؟؟؟؟؟؟؟؟؟؟؟؟

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

أخي الكريم جرب الكود التالي

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

 

 

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

22 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم جرب الكود التالي

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

 

 

شكرا اخي على الرد هل ممكن تطبيق على الملف المرفق .. لم تفلح معي

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

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

لابد أن تتعلم الأساسيات ..

قم بالإطلاع على الموضوع التالي لتعرف كيفية التعامل مع محرر الأكواد

بداية الطريق لإنقاذ الغريق

بالنسبة للكود لن يقوم بالطباعة إنما معاينة فقط .. إذا أردت الطباعة عليك استبدال كلمة PrintPreview الموجودة في الكود بكلمة PrintOut

[عبد العزيز البسكري]

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

بارك الله فيك أخي الغالي و أستاذي القدير " ياسر خليل أبو البراء " عللى الكود أكثر من الرّائع

جزاك الله خيرًا و زادها بميزان حسناتك

لم أعرف حقيقة هذا الكود الكنز إلاّ بعد تجربته على ملف الأخ الفاضل " حرّاثي تواتي "

فائق إحتراماتي و إعجاباتي

طباعة.rar

تم تعديل مارس 9, 2016 بواسطه عبد العزيز البسكري

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

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

أخي الغالي عبد العزيز

الكود بسيط جداً وفكرته مألوفة كثيراً ..حيث يعتمد على عمل خلقة تكرارية من خلالها يمكن تغيير قيمة الخلية التي تتحكم في تغيير بيانات ورقة العمل ثم سطر للطباعة وفقط

بارك الله فيك وجزاك الله كل خير على تشجيعك الدائم لنا

تقبل تقديري واحترامي

[خالد الرشيدى]

السلام عليكم

أستاذى / ابو البراء  .. فعلاً بدون مجاملة .. دائماً موضوعات حضرتك تمثل لى إضافه . جزاك الله عنا خيراً

واسمح لى ان اضيف :- بدلاً من الخيار Printout ومن ثم الطباعة دون معاينه .. او الخيار Print Preview ومن ثم ظهور قائمه خيارات الطباعه فى كل مرة يتم الضغط على Print   الكود التالى يجمع بينهما ...

.PrintOut , , , True

تقبلوا خالص احترامى وتقديرى

[عبد العزيز البسكري]

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

أخي الكريم و أستاذي القدير " خالد الرّشيدي "

أوّلاً كيف الأحوال .. أدعو الله أن تكون بتمام الصحّة و العافية

و الله إشتقت لك كأخ كريم و لأعمالك التي طالما ساعدتنا بها ..

سيّدي الكريم حاولت بهذا السّطر من الكود .. مثلما يشير السّهم و طبعا بكل مرة أوقف عمل الجزء الآخر لكنها لم تضبط معي

هلاّ كتبت لنا الكود كاملاً .. و لك مني فائق التّقدير و الاحترام

ولا ننسى الوالدة الكريمة .. المرحومة و المغفور لها بإذن الله تعالى .. أن يتغمّدها الله بواسع رحمته

فائق إحتراماتي

 

تم تعديل مارس 9, 2016 بواسطه عبد العزيز البسكري

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

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

[خالد الرشيدى]

السلام عليكم

استاذى واخى الحبيب / عبد العزيز البسكرى

يعجز الكلام عن التعبير عن مدى امتنانى لحضرتك ..كلام طيب ..دعاء لوالدتى رحمها الله

لا يسعنى سوى شكر الظروف التى جمعتنى بكم اخى الكريم .. جزاك الله خيراً ..وأسال الله ان يوفقنا جميعاً لما فيه الخير

بالنسبه للكود .. هو يتخطى وفقط ظهور نافذه خيارات الطباعه عند الضغط على Print  اثناء المعاينه

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.PrintOut Preview:=True
    Next I
End Sub

خالص حبى وتقديرى لك اخى واستاذى الحبيب  عبد العزيز ولاستاذى ابو البراء ولكل اعضاء المنتدى الماس