اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

وجدت حل لعمل كود طباعة بمدى متغير


الردود الموصى بها

]

السلام عليكم

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

فحاولت و حاولت حتى من الله علي بهذا الحل ( بعد الاطلاع علي كثير من الدروس الرائعة للاستاذ ابو تامر ( درس المدى الديناميكي )

أرجو من الخبراء الطلاع و إبداء الرأي و التعديلات

أخوكم : أيسم إبراهيم

____________________.rar

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

مشكور اخى الكريم

أرجو من الخبراء الطلاع و إبداء الرأي و التعديلات

يمكنك استخدام الكود التالى لتقوم بتتحديد المجال بالكود

Sub My_Print()
    Dim RNG As Range
    Set RNG = Sheets("test1").Range("A1:E18")
    RNG.PrintOut
End Sub

مرفق ملف

السلام عليكم

Print_Range.rar

رابط هذا التعليق
شارك

الخبير هادي سالم

السلام عليكم

هل هذا الكود يطبع مثلا كشوف المرتبات او كشوف درجات الطلاب ؟

وكيف .. ؟

بسم الله الرحمن الرحيم

لست خبيرا و لكننا جميعا نتعلم من المنتدى

يمكنك تغيير المجال

Range("A1:E18")

للمجال الذى تريده

السلام عليكم

رابط هذا التعليق
شارك

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

أستاذ هادي:

إنه لشرف كبير أن تتكرم و تطلع علي مرفقي و تبدي عليه ملاحظاتك.

نفعنا الله و إياكم بعلمكم الغزير و جعله في ميزان حسناتك مثاقيل كثيرة

أخوك : أيسم إبراهيم

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

الاخ العزيز هادي

ارجو ان يكون كود الطباعة برسالة تسالني على مدي الطباعة ثم يتم الطباعة على ذلك .

بسم الله الرحمن الرحيم

الحل بالملف المرفق

ستجد رساله اكتب المجال الذى تريده

السلام عليكم

Print_Range_01.rar

رابط هذا التعليق
شارك

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

أستاذنا أبو عبدالله (( الجزيرة ))

علام الشكر لى فالشكر كل الشكر لكم أساتذتنا الكرام فنحن نتعلم فى محرابكم

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

أخوك : أيسم إبراهيم

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information