كود لتحديد مدى الطباعه

[جوده]

الاخوه الافاضل برجاء التكرم بمساعدتى فى عمل كود على الشيت لتحديد مدى الطباه الذى مثلا يبدامن A1 ومثلا اذا كانت الخلية J20 اخر خليه بها بيانات يكون المدى A1 :J20 واذا تغير المدى مثلا J25 يكون مدى الطباعة A1 : J 25 وهكذا00

ارجو الشرح وكيفيه تطبيقة على الشييت الخاص بى 00

لكم منى كل احترام وتقدير

Book222.rar

[يحيى حسين]

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

أخي جرب هذا الكود

Sub Yahya()

Dim LastR As Integer

LastR = Range("b" & Rows.Count).End(xlUp).Row

With ActiveSheet.PageSetup

	.PrintArea = "a1:j" & LastR

End With

ActiveSheet.PrintOut

End Sub

[الحسامي]

السلام عليكم

اخي الحبيب يحيى كود جميل جداً

ولائراء الموضوع هذا مرفق يتم فيه تحديد

مدى الطباعة بناءاً على الاسطر المدخلة

ويتغير اتوماتيكياً

Book222.rar

[جوده]

الاستاذ يحيى والاستاذ عماد وهذا المنتدى الاستاذ عماد ارسل كود جميل ولكن لى طلب هو ان الكود المرسل مرتبط بالعمود A1 فقط ولكن اسمح لى ان يكون الكود مرتبط بالعمود aكذالك الصف j على ان لايكون مرتبط بالمسلسل

ويكون الكود مثلا من a الى j

هل لى ان اطلب شرح هذا الكود ان سمحتم

لكم منى كل احترام وتقديرشكرا

تم تعديل مايو 11, 2010 بواسطه goda509129

[ابو الآء]

ننتظر من الاستاذة الكبار شرح فديو لخطوات العمل

الف شكر على المجهود الرائع

[أبوعبد الله]

أخي العزيز / goda509129

إضافة لما تفضل به إخواني الأعزاء من حلول رائعة ، تجد بالملف المرفق طريقتين لتحديد نطاق الطباعة واحدة من خلال اختياره بالماوس والثانية من خلال كتابة عنوانه بصندوق إدخال إضافة لكود لإلغاء نطاق الطباعة الحالي ، أرجو أن يناسب هذا طلبك .

والشكر موصول للعزيزان يحيى وعماد .

تحياتي

أبو عبدالله

تحديد نطاق الطباعة بطريقتين وإلغاؤه.rar

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

متميز دائماً ومبدع كعادتك ومش عارف أعبر عن حبي لك

أخوك أبو البراء

[يحيى حسين]

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

حلول جميلة من الأخوين عماد و ابو عبدالله

و مرفق حل آخر بتعديل بسيط على ملفك

بحيث يتم الترقيم بناء على الإدخال الأسماء

و عند الضغط على زر الطباعة سيتم تحديد المدى بناء على أخر رقم في المدي الاول

يحيى حسين.rar

[هشام شلبى]

السلام عليكم

===========

اخى الحبيب يجيى بارك الله فيك على الكود الصغير جدا "كبير جدا فى المقام"

اخى اللحبيب عماد "ابداع"

الحبيب الغالى ابو عبدالله " تعبتنا معاك يا عم الحاج" مافيش اروع من كده

اخى goda509129

---------------

ولاثراء الموضوع هذا الكود الذى يتميز بعدة مميزات

1) يمكن طباعة الورقة طوليا او عرضيا بتغير هذا الجملة فى الكود

CenterVertically = True

      Orientation = xlPortrait

الى

CenterHorizontally = True 

        Orientation = xlLandscape 

كما يمكنك تحديد "هد" للصفحة يتكرر مع كل صفحة ويمكنك تغيرة فى الجملة

PrintTitleRows = "$1:$1"

كما يمكنك تظبيط الصفحة اتوماتيكيا من الجملة

FitToPagesWide = 1

        FitToPagesTall = 1

الميزة الثالثة والاخيرة يخيرك بين عدة طباعات اذا كان لديك اكثر من طباعة

تحياتى

Copy of كود طباعة مدى متغير.rar

[يحيى حسين]

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

أخي هشام حل جميل

و استخدام رائع لخصاص الطباعة و التحكم فيها من خلال الكود

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

============

و أريد أن أذكر نقطة مهمه جدا هنا

تنوع الحلول إثراء للموضوع

فجميع الحلول طرحت أفكار جديدة

فكما لاحظنا الاخ الحبيب عماد جاء بحل رائع كعادته

و اأخ الحبيب أبو عبدالله جاء بحلين و بفكرتين جميلتين

و الأخ الحبيب هشام شلبي " النجم الصاعد في عالم الإكسيل " جاء بحل و استخدام لميزات أخرى للبرمجة

كلها أدت لإثراء الموضوع و جعله ذو قيمة عالية

فلم يبقى الموضوع في حيز انه طلب للأخ goda509129 و تم تنفيذه

بل أصبح مرجع يحتوي عدة طرق في موضوع واحد

و لذلك أتمنى دائماً أن نرفع شعار " إثراء الموضوع "

فأي حل يتم تقديمه إضافة للحلول المقدمة يعتبر رفع قيمة و فتح مجالات أكبر امام الأخوة الأعضاء

==============

و دمتم في حفظ الله و رعايته

[هشام شلبى]

و أريد أن أذكر نقطة مهمه جدا هنا

تنوع الحلول إثراء للموضوع

فجميع الحلول طرحت أفكار جديدة

بل أصبح مرجع يحتوي عدة طرق في موضوع واحد

و لذلك أتمنى دائماً أن نرفع شعار " إثراء الموضوع "

فأي حل يتم تقديمه إضافة للحلول المقدمة يعتبر رفع قيمة و فتح مجالات أكبر امام الأخوة الأعضاء

السلام عليكم

===========

كلامك جميل مفيد

هذا هو هدفنا الاساسى واتمنى من الله ان يدوم علينا نعمة المحبة والاخلاق الحميدة

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

[الحسامي]

ما شاء الله واللهم صلي على سيدنا محمد عليه الصلاة والسلام

لم يبقى من الكلام ما يقال ..........................

فكما قال اخي الحبيب يحيى " تنوع الحلول اثراء للموضوع "

نعم تنوع الحلول هو بحد ذاته موضوع مستقل بعينه فاي حل من الحلول قد

يعالج جانب اخر لمواضيع اخرى متشابهة

وكما قال اخي العزيز هشام " هذا هو الهدف الاساسي "

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

الاخرين, فالحلول ليست بالدرجة الرئيسية لصاحب الموضوع فقط وانما للجميع

اما اخي الغالي والكبير ابو عبدالله

صاحب البصمات المميزة في الفن المستخدم في التقنيات

فجزاكم الله خيراً وابقاكم عند حسن ظن الجميع

---ولائراء الموضوع من جديد مرفق ملف فيه تعديل على الملف السابق

لتوسيع نطاق الطباعة بناءاً على كافة الاعمدة

اخوكم في الله

عماد الحسامي

Book222.rar

تم تعديل مايو 12, 2010 بواسطه عماد الحسامي

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

أحسنتم جميعاً وبارك الله فيكم

[يحيى حسين]

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

أخي هشام حياك الله

و اخي ياسر حياك الله

و اخي عماد فكره رائعة بالحل

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

[أبوعبد الله]

كلام ناس كبار

وما عليه أي غبار

وعشان نكمل المشوار

دي كمان فكرة في نفس الإطار

وإن شاء الله ما يكونش فيها تكرار

لما تفضلتم به يا أساتذة من روائع الأفكار

وزمان علمونا إن التكرار كمان بيعلم الشطار

ياربي احفظ علينا أخوتنا وثبت اقدامنا على هذا المسار

مع حبي وتقديري

أخوكم أبو عبدالله

تعيين نطاقة الطباعة نهاية صفه بنص بالنطاق.rar

[يحيى حسين]

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

اول مرة اعرف انك شاعر اخي ابو عبدالله

يعني روعة كلامك نستنى روعة ملفك

ملف جميل جدا و فكرة جميلة و شعر جميل

ربنا يجزيك الخير اخي ابو عبدالله

[جوده]

الاساتذه الافاضل اشكركم جميعا واؤكد لحضراتكم انه اصبح عندى مكتبه ثريه جدا بها موضوعت غنيه وجميله من اساتذه كرام عظماء مثل مكتبه الاسكنريه ومن المةضوعات هو هذا الموضوع تحديد مدى الطباعه بارك الله فيكم واكثر من امثالكم

لكم جميعا كل احترام وتقدير

GODA

[أبوعبد الله]

أخي الحبيب يحيى حسين

دي حاجات بتطلع بين حين وحين

للناس اللي زيك على قلبي غاليين

واللي دايماً في حاجة اخوانهم وبالخير سباقين

وفي الختام تقبل شكري وحبي وتقديري لشخصك الرصين

أبو عبدالله

[خالد القدس]

السلام عليكم

إبداع وتميز قل نظيره

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

[BuFaisal]

جزاكم الله كل خير على هذا العطاء المتواصل

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

اخوكم بوفيصل

تم تعديل مايو 12, 2010 بواسطه BuFaisal

[الخالدي]

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

وهذه محاولة للتحكم في ناحية الطباعة بالمعادلات

حيث تتغير بداية ونهاية الاعمدة والصفوف في ناحية الطباعة حسب الخلايا المعباة وبصرف النظر عن وجود خلايا فارغة

الخالدي.rar

[الحسامي]

الاخ العزيز /// الخالدي

كلمة حق تقال .....وبكل صراحة

رائع.. جديد..ممتاز..ابداع..متألق

كل هذه الكلمات لا تعطيك حقك في هذا العمل

و اعتقد انه الحل الانسب لحل مشكلة صاحبنا

وفقك الله وجعلك متألق كما هي عادتك

اخوك عماد الحسامي

[الخالدي]

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

أخي العزيز عماد

شكرا على الكلمات الطيبة والمعبرة اولا عن حسناتك الكريمة

لك مني كل التحية والتقدير

[يحيى حسين]

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

أخي خالدي

لا يوجد كلمة يمكن ان تصف إبداعك

ما شاء الله عليك

حل قوي جدا بالمعادلات

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

[BuFaisal]

حيرتني وياك يا خالدي

غلب حماري وانا احول افهم السر في هذا الابداع

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

زادك الله في العلم والحكمة

اخوك بوفيصل