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

[commandos1975]

السلام عليكم

اريد من السادة وضع كود للطباعة بدلا من الطباعة للجان واحدة واحدة فعلي ان تكون الطباعة من الرقم الموجود في الخلية i2 الي ان تصل الطباعة حتي الرقم الموجود في الخلية i6 و لسيادكم جزيل الشكر

legan.rar

[رجب جاويش]

تفضل أخى

 

legan.rar

[هاني عدلي]

أستاذنا الكبير

رجب جاويش

كعادتك " عنوان التميز و الإبداع "

=======

خالص تحياتي

 

 

[أبو إيمان]

دائما من السباقين استاذنا / رجب جاويش

[ابن بنها]

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

حتى لايطبع اوراق زياده

عندنا عدد الطلاب وليكن 500 وعندنا صفحة الشهادات يكون فيها شهادتين

اذن عدد الصفحات المطلوب طباعتها 500 على 2 تساوي 250 ورقه

وان زدت حسنا تخليى الطابعة تطبع جزء جزء حتى لاتهنج

مثلا 30 شهاده في امر الطباعه

جزاك الله خيرا

[دغيدى]

أخى الكريم / ابن بنها

سلام الله عليكم

يمكنكم كتابة بداية الطباعة ونهايتها يدويا فى الخلايا ( F2   و G2 ) حتى تتحكم فى الصفحات كما تريد

[commandos1975]

شكرا جزيلا

وبارك الله فيكم

اريد شرح لهذه الأكواد او الطريقة  حيث اريد كود طباعة ومعاينة الصفحة الحالية

[أبو إيمان]

السلام عليكم

ماكان ينبغى لى الرد في وجود العلمالقة لكننى أحببت المشاركة حتى اتمكن من عرض ما تعلمته وأذداد عملما من علمهم وخبراتهم وأرائهم

 

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

 

 

أما بالنسبة للشرح فليسمح لي الاستاذ الفاضل / رجب جاويش 

بشرح عمله الجميل

تم تعديل يناير 26, 2013 بواسطه أبو إيمان

[commandos1975]

اريد الشرح باسرع وقت ولم جزيل الشكر

[أبو إيمان]

Dim I As Integer
For I = Range("F2") To Range("G2")
If I <= Range("G2") Then
Range("I2") = I
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End If
Next I
Range("I2").Select
End Sub

 

أخي الفاضل في هذا الكود تم تعريف متغير من التوع الرقم الصحيح واسمه i  وبعدها تم عمل حلقة تكرارية لقيمة هذا المتغيير  بالقيم الموجودة داخل الخلايا F2") و("G2 وبعدها تم وضع  شرط وفيه يتم تنفيذ عملية الطباعة مادامت قيمة المتغير اقل من القيمة الموجودة بالخلية  g2  وبعدها يتم النزول لنهاية الحلقة التكرارية ليت تنفيذها من جديد حتى تصل قيمة المتغير إلى القيمة النهائية والموجودة بالخلية g2

 

أخى الفاضل هذا على حد فهمى وأرجو أن أكون وفقت في الشرح 

واعتذر لأستاذي الفاضل / رجب جاويش أننى قمت بالشرح قبل موافقته 

تم تعديل يناير 27, 2013 بواسطه أبو إيمان

[commandos1975]

شكرا يا اخي ولكن عند اجراء الطباعة يقوم بطباعة الورقة الأولي فقط اي يقوم بطباعة اللجنة الأولي  فقط اكثر من مرة

[رجب جاويش]

أخى الفاضل / أبو إيمان

أحسنت أخى الفاضل شرح جميل للكود

جزاك الله كل خير

ولا يوجد بين الأخوة استئذان فنحن جميعا طلاب فى جامعة مفتوحة هى منتدى أوفيسنا العريق

ونحن نكمل بعضنا البعض

[commandos1975]

شكرا يا اخي ولكن عند اجراء الطباعة يقوم بطباعة الورقة الأولي فقط اي يقوم بطباعة اللجنة الأولي  فقط اكثر من مرة

اريد حلا يا اعزائي

[حمادة عمر]

السلام عليكم

الاخ الكريم / commandos1975

 

الملف المرفق من الاستاذ القدير / رجب جاويش في المشاركة رقم 2

يعمل بطريقة صحيحة علي جهازي

 

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

 

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
 

بالسطر

 

ActiveWindow.SelectedSheets.PrintPreview

 

جزاك الله خيرا

[أبو إيمان]

جزاك الله خيرا أستاذنا الفاضل

 

والكود يعمل اخي كومندوز

تم تعديل يناير 28, 2013 بواسطه أبو إيمان